Работа с файлами

[KitFolly]

Создать текстовый файл, в который записать 3 предложения. Прочитать этот файл, вывести на экран самое длинное и короткое предложение.
Program File_text;
var
a: integer;
f1 : text;
st : string;
n: byte;
begin
assign (f1, 'file1.txt');
rewrite (f1);
writeln ( f1,'все птицы пернатые ')
writeln ( f1, 'почти все умеют летать')
writeln (f1, 'многие питаются зерном')
close (f1);
reset (f1);
while not eof (f1) do
begin
readln (f1, st);
writeln(st);
n:= length (st);
writeln (' длина =',n);
end;
close (f1);
end .
что и куда надо дописать чтобы выводило max i min длины предложений? помогите пожалуйста.

[KitFolly]

Помогите доделать программу плиз.

[Maksimall89]

что и куда надо дописать чтобы выводило max i min длины предложений? помогите пожалуйста.

Нужно было добавить сравнение длин.

uses crt;
var
min,max: byte;
f1 : text;
st : string;
n: byte;
begin
clrscr;
assign (f1, 'file1.txt');
rewrite (f1);
        writeln( f1,'все птицы пернатые ');
        writeln( f1, 'почти все умеют летать');
        writeln(f1, 'многие питаются зерном');
close (f1);
{обнуляем}
min:=99;
max:=0;

reset (f1);
while not eof (f1) do
      begin
           readln (f1, st);
           writeln(st);
           n:= length (st);
           {сравнение длин}
           if n>=max then max:=n;
           if n<=min then min:=n;
      end;
close (f1);
{вывод на экран}
writeln('Max длина =',max);
writeln('Min длина=',min);
readkey;
end .