Текстовые файлы

[ponchikpk]

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

uses crt;
var f:text;
s,word,mword:string;
max,i,j:integer;
BEGIN
assign(f,'text.txt');
reset(f);
while not seekeof(f) do
  begin
  readln(f,s); {читаем строку из файла}
  i:=1;
  while i<=length(s) do
    begin
    while (s[i]=' ')and(i<=length(s)) do inc(i); 
    while (s[i]<>' ')and(i<=length(s)) do  {здесь из строки получаем слово}
      begin
      word:=word+s[i];
      inc(i);
      end;
    j:=1;
    while j<=length(word) then {устанавливаем мах слово}
      begin
      if j>max then
        begin
        max:=j;
        mword:=word;
        end;
      inc(j);
      end;
    end;

А вот дальше что то запутался

[Tkirill]

uses crt;
var
fil:text;
txt:array[1..20] of string;
s,st:string;
i,k,j,n,maxlen:integer;
begin
clrscr;
assign(fil,'c:\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.

Имеется в виду что текст не содержит других разделителей кроме пробела.

From Stilet: Код оформляй тегом, ато обидеться можно.