{* Самая длинная строка в файле *}

Unit SAMDLIN;
Interface
Implementation
Begin
 writeln('Самая длинная строка в файле');
End.

Program pas;

Uses samdlin.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  F      : Text;
  S      : String;
  stroka : String;
  x      : Integer;
  i      : Integer;
  ch1    : char;
  ch2    : char;
Begin
  Assign(F, '1.txt'); { Связываем файловую переменную с иминем файла }
  Reset(F); { Инициализируем фал на перезапись }
  Repeat { Обьявляем цикл }
    Readln(f, S); { Считвыаем в процессе выполнения цыкла все строики из файла в масив }
  i := length(S); { Определяем длину считываемой строки }
  If i > x Then
  Begin
    x := i;
    stroka := s;
  End;
  Until EOF(F); { Цыкл будит выполнятся до тех пор, пока не обнаружится конец файла F }
  Close(F); { Закрываем файл }
  writeln('Самая длинная строка: ', stroka);
  Writeln('Содержит ', x, ' символов');
  Readln; {* Ждем нажатия Enter *}
End.