Паскаль. Обработка файлов

[Pepsik]

Задание такое: Дан текстовый файл. Преобразовать его, оставив в каждой строке только самое длинное слово.
у меня есть программа, ищущая самое длинное слово во всём файле. Помогите, пожалуйста, переделать её под данное задание.

program lab8_22a;
var maxs,s:string;
f:file of char;
c:char;
w:boolean;
maxe,e,i:integer;
begin
assign(f,'file1.txt');
reset(f);
w:=false;
maxs:='';
maxe:=0;
while not eof(f) do
 begin
read(f,c);
while (not eof(f))and(c<>' ') do
begin
s:=s+c;
read(f,c);
end;
for i:=1 to length(s) do
if pos(s[i],'eyuioa')<>0 then
inc(e);
if e>maxe then
 begin
  maxe:=e;
      end;
if length(maxs)<length(s) then
maxs:=s;
 s:='';
while (not eof(f)) do
 begin
 read(f,c);
end;
end;
close(f);
writeln('Самое длинное слово:',maxs);
readln;
end.

[Step_UA]

извините, но эта программа выводит первое слово из файла, если перед ним нет пробелов ...

[GetMax]

Примерно так будет.

Var
  FF:Text;
  i:Byte;
  st,MaxSl,buf:String;
begin
  Assign(ff,'File.txt');
  Reset(ff);
  While Not EOF(ff) do
  Begin
    Readln(ff,St);
    MaxSl:='';
    Buf:='';
    For i:=1 to Length(St) do
    Begin
      If (St[i] <> ' ') and (i <=Length(St)) then buf:=buf+St[i];
      If (St[i] =  ' ') or (i = Length(St)) then
      Begin
        If Buf <> '' then
        Begin
          If Length(Buf) >= Length(MaxSl) then MaxSl:=buf;
          buf:=''
        End;
      End;
    End;
    Writeln(MaxSl)
  End;
  Close(ff);
  Readln
End.

О том как записать результат в файл(если это нужно) подумайте сами.