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

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

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

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.

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

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

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

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

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

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

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