Помогите решить задачу на тему - Файлы. Pascal.

[Impulsive]

1) Имеется внешний текстовой файл T. Напечатать первую из самых коротких его строк.

2) Сложная =(
type цена=record руб:0..maxit;
коп:0..99 end;
прейскурант=file of цена;
Описать процедуру min(П,Ц), присваивающую параметру Ц наименьшую цену из непустого прейскуранта П.

{коментария приветствуются}

[nikleb]

program pr;
uses crt;
var t:text;
    min:integer;
    s,s2:string;
begin
clrscr;
assign(t,'C:\tekst.txt');
reset(t);
min:=32000;
repeat
      readln(t,s);
      if min>length(s) then
         begin
         min:=length(s);
         s2:=s;
         end;
until eof(t);
close(t);
writeln(s2);
readln;
end.

[Impulsive]

О класс! Оказываеться все так просто

[puporev]

min:=32000;
repeat
readln(t,s);
if min>length(s) then
begin
min:=length(s);

Во-первых, длина строки не может быть >255 знаков.
В-вторых, if min<length(s) then

[Impulsive]

Ок, исправил!..