Найти самое длинное слово и слово с самым большим количеством слогов

var
temp,s,max:string;
i:integer;
begin
writeln('Введите строку...');
readln(s);
max:='';
for i:=1 to length(s) do
begin
if s[i]<>' ' then
temp:=temp+s[i];
if (s[i]=' ') or (i=length(s)) then
begin
if length(temp)>length(max) then
max:=temp;
temp:=''
end;
end;
writeln('Максимальное слово в строке - ',max)
end.

var maxs,s,s2: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;s2:='';
 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;s2:=s;end;
  if length(maxs)<length(s) then maxs:=s; s:='';
  while (not eof(f))and(c=' ') do begin read(f,c);end;
 end;
 close(f);
 writeln('Самое длинное слово=',maxs);
 writeln('А слогов то=',s2);
 readln;
end.

var
  maxs, s, s2: 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;s2 := '';
  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;
      s2 := s;
    end;
    if length(maxs) < length(s) then 
      maxs := s; 
    s := '';
    while (not eof(f)) and (c = ' ') do 
    begin
      read(f, c);
    end;
  end;
  close(f);
  writeln('Самое длинное слово=', maxs);
  writeln('А слогов то=', s2);
  readln;
end.