var min, max, i: integer;
    smin, smax, s: string;
begin
assign(input, 'test1.txt'); reset(input);
min:= maxint; { минимум = равен максимальному значению типа integer }
max:= 0; i:=0;
while not EOF do { пока не закончится файл }
begin
  readln(s); { считывает строку }
  if length(s) > max then { если длина строки больше максимума }
    begin
      max:= length(s); { максимум равен длине строки }
      smax:= s; { максимальная строка равна данной строке }
    end;

  if length(s) < min then { если длина строки меньше минимума }
    begin
      min:= length(s); { минимум равен длине строки }
      smin:= s; { минимальная строка равна данной строке }
    end;

  inc(i); { подсчитываем кол-во строк в файле }
end;
writeln('Происходит чтение файла test1.txt');
writeln('Результат');
writeln('Количество прочитанных строк (фраз/слов) равно ', i);
writeln('Самая короткая фраза/слово "', smin);
writeln('Самая длинная фраза/слово "', smax);
close(input); close(output);
end.