Коментарии к программе

[Figushkin]

uses crt;
var
   fil:text;
   txt:array[1..1000] of string;
   s,st:string;
   i,k,j,n,maxlen:integer;

begin
clrscr;
assign(fil,'in.txt');
reset(fil);
n:=0;

while not eof(fil) do
 begin
 n:=n+1;
 readln(fil,txt[n]);
 end;
maxlen:=0;

for i:=1 to n do
 begin
  txt[i]:=txt[i]+' ';
  j:=1;
  s:='';
  repeat
  if txt[i][j]<>' ' then
  s:=s+txt[i][j]
  else

   if s<>'' then
             begin
              if length(s)>maxlen then
               begin
                st:=s;
                maxlen:=length(s);
               end;
              s:='';
             end;
  j:=j+1;
  until j>length(txt[i]);
 end;
k:=0;

for i:=1 to n do
 begin
  j:=1;
  s:='';
  repeat
  if txt[i][j]<>' ' then
  s:=s+txt[i][j]
  else
   if s<>'' then
             begin
             if s=st then
             k:=k+1;
             s:='';
             end;
  j:=j+1;
  until length(txt[i])<j;
 end;

writeln(st,' встречается ',k,' раз');
close(fil);
readln;
end.

помогите с коментариями

[AlexXXX12389]

uses crt;
var
   fil:text;
   txt:array[1..1000] of string;
   s,st:string;
   i,k,j,n,maxlen:integer;  //объявление переменных

begin
clrscr;                        //очистка экрана
assign(fil,'in.txt');         //привязываем файл in.txt к переменной fil
reset(fil);                    //открываем файл для чтения
n:=0;                         //обнуляем переменную-счётчик строк в файле

while not eof(fil) do      //пока не достигнут конец файла
 begin
 n:=n+1;                    //накручиваем счётчик
 readln(fil,txt[n]);        //считываем текущую строку файла строковый массив
 end;
maxlen:=0;                 //обнуляем переменную, которая вычисляет максимальную длину строки

for i:=1 to n do           //идём по массиву строк
 begin
  txt[i]:=txt[i]+' ';        //добавляем в конец каждой строки пробел
  j:=1;                       //"обнуляем" позицию курсора в строке
  s:='';                       //зачищаем переменную
  
repeat                     
  if txt[i][j]<>' ' then               //если текущий символ в строке не пробел, то
  s:=s+txt[i][j]                       //записываем этот символ в переменную s
  else                                    //иначе проверяем

   if s<>'' then                                 //если переменная s не пуста, то 
             begin
              if length(s)>maxlen then     //если длина строки s больше максимальной длины, то
               begin
                st:=s;                          //сохраняем строку s в переменной st
                maxlen:=length(s);         //обновляем значение максимальной длины
               end;
              s:='';                             //очищаем строку
             end;
  j:=j+1;                                       //наращиваем позицию курсора в строке
  until j>length(txt[i]);   //повторяем действия, описанные после repeat до тех пор, пока курсор не окажется в конце строки  
 end;
k:=0;

for i:=1 to n do                    //опять идём по массиву от начала до конца
 begin
  j:=1;                                //ставим позиция курсора на первый символ в строке
  s:='';                                //очищаем строку

  repeat
  if txt[i][j]<>' ' then             //если текущий символ не пробел, то
  s:=s+txt[i][j]                     //записываем этот символ в строку
  else                                 //иначе
   if s<>'' then                      //если строка не пуста, то
             begin
             if s=st then            //если эта строка равна строке с максимальной длиной, то
             k:=k+1;                 //наращиваем счётчик
             s:='';                     //очищаем строку
             end;
  j:=j+1;                              //наращиваем позицию курсора в строке
  until length(txt[i])<j;        //повторяем действия, описанные после repeat до тех пор, пока курсор не окажется в конце строки 
 end;

writeln(st,' встречается ',k,' раз');    //выводим на экран строку с максимальной длиной и сколько раз она встречалась в файле
close(fil);                                      //закрываем файл
readln;
end.

вот так вот!

[Figushkin]

Большое спасибо!