С помощью Паскаля найти самую короткую строку в файле и вывести её на экран. Если таких строк несколько, то последнюю из них.

program proga;Var  p: text;      i, n : byte;      s,min,m: string;      Begin                           write('Введите имя файла   ');  {Например: C:.txt}                           read(m);Assign(p,m);        reset(p);    read(p,s); min:=s;    n:=100;    for i:=1 to n do    begin      readln(p,s);                                       while not eof(p) do   {нахождение минимальной строки}          begin           readln(p,s);          if length(s) <= length(min) then           min:=s;          end;           end;close(p);    write('самая короткая строка: ',min);End.