Написать программу в которой нужно найти самое длинное слово самого короткого предложения

uses
    crt;
type
    fil=text;
var
   f1:fil;
   a,b,c:string;
   i,w,n,y:integer;
 
procedure wwod;
begin
assign(f1,'t1.dat');
rewrite(f1);
writeln('Введите кол-во строк в файле:');
readln(y);
for i:= 1 to y do
    begin
    writeln('Введите ',i,' строку');  {}
    readln(a);
    writeln(f1,a);
    end;
close(f1);
end;
 
procedure prosm;
begin
assign(f1,'t1.dat');
reset(f1);
writeln('Содержание текстового файла:');
while not eof(f1) do
      begin
      a:='';
      readln(f1,a);
      writeln(a)
      end;
close(f1);
end;
 
procedure naxod;
var max:string; i,i1:integer;
begin
assign(f1,'t1.dat');
reset(f1);
max:='                                                                ';
i:=1;
i1:=0;
while not eof(f1) do
      begin
      a:='';
      readln(f1,a);
      if length(a)< length(max) then begin
                           max:=a;
                           i1:=i;
                                 end;
     inc(i);
     end;
writeln('Самая короткая строка: ',max,' (',i1,')');
reset(f1);
a:='';
i:=0;
while i<>i1 do
      begin
      readln(f1,a);
      inc(i)
      end;
b:='';
c:='';
for i:=1 to length(a) do
begin
     if a[i]=' ' then
                begin
                if length(b)>length(c) then
                           begin
                           c:=b;
                            b:='';
 
                            end ;
                b:='';
                end
     else b:=b+a[i];
                    end;
 if length(b)>length(c) then
                           c:=b;
writeln(c);
close(f1);{}
end;
 
begin
w:=0;
while w<>4 do begin
      writeln('           Меню программы');
      writeln('1-Создание текстового файла');
      writeln('2-Просмотр текстового файла');
      writeln('3-Нахождение короткой строки строки длинного слова');
      writeln('4-Выход из программы');
      write('             Ваш выбор -> ');
      readln(w);
      case w of
           1:wwod;
           2:prosm;
           3:naxod;
           end;
      writeln
      end;
end.