файл на паскале.

[Figushkin]

Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое длинное слово.

[Stilet]

Ну и?
На чем делать?
Наработки есть

[Figushkin]

program pyatnadcat;
uses crt;
var
fil:text;
txt:array[1..20] 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
 inc(n);
 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;
  inc(j);
  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 inc(k);
             s:='';
             end;
  inc(j);
  until length(txt[i])<j;
 end;
writeln(k);
close(fil);
readln;
end.

она в принципе работает, но можно сделать так, что бы выводил слово самое длинное и рядом: встречается n раз

[Stilet]

writeln(st,' встречается ',k,' раз');