работа с текстом, простенькая задача Опции

[Zq@r]

народ срочняк времени в обрез!!
Программа Имеет внешний текстовый файл Т. Напечатать первую из самых коротких строк.

буду блогадарин до не магу !!!! :molitva:

[test]

Я не думаю, что над этим дольше думать, чем ждать ответа

var t:text;
s,ss:string;
begin
assign(t,'имя файла'); reset(t);
ss:='';
repeat
readln(t,s);
if (byte(s[0])<byte(ss[0])) or (ss='') then ss:=s;
until eof(t);
close(t); writeln (ss);
readln;
end.

[Guest]

простоя делаю еще 4 задачи .. а с текстомм работать не умею...
вотс
кстити после запуска проги вадает RunError #2 at 02af1332

+ еще
ошибка status=2 API code =2

[volvo]

Zq@r,
ты чем компилируешь - указывать нужно, какой компилятор...

[hiv]

простоя делаю еще 4 задачи .. а с текстомм работать не умею...
вотс
кстити после запуска проги вадает RunError #2 at 02af1332

А ты файл создал - который программа пытается прочесть?
А его имя вставил вместо 'имя файла'?

[zq@r]

все ребята !!!
СПасибо огромное!!!!!
разобрался!

вы Боги!!! :molitva:

[test]

разобрался!

Только если в тексте встречаются пусты строки, то она неправильно сработает