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

Unit PR_01;
Interface
Implementation
Begin
 writeln('Программа, которая находит в файле самое длинное слово и указывает номер строки, где оно находится.');
End.

Program pr_01;

Uses pr_01.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  inp : Text;
  i   : Integer;
  max : Integer;
  j   : Integer;
  n   : Integer;
  c   : char;
Begin
  Assign(inp, 'Input.txt'); {* Подключение к файлу 'Input.txt' через переменную inp *}
  Reset(inp); {* Чтение из файла через переменную inp *}
  i := 0;
  max := 0;
  j := 0;
  n := 0;
  Repeat            Read(inp, c);
    If (c = #13) Then
      inc(j); {* Увеличиваем j на 1 *}
  If (c  #32) And (c  #13) And (c  #10) And (c  #26) Then
    inc(i) {* Увеличиваем i на 1 *}
  Else Begin
    If (i > max) Then
    Begin
      max := i;
      n := j;
    End;
  i := 0;
End;
Until (c = #26);
Close (inp); {* Закрытие файла *}
Writeln('Самое длинное слово в файле - ', max, ' букв.');
Writeln('Номер строки - ', n, '.');
End......