Цитата:
Сообщение от Pyx
Спасибо, работает
|
В принципе, если структура входного файла жестко задана по позициям, то можно и существенно короче, как Вы с самого начала хотели, т.е. используя размерные строки. Но тогда так:
Код:
var
myfile: text;
zvidku,kyda: string[10];
chas: real;
i:Integer;
begin
assign(myfile ,'D:\poizd.txt');
reset(myfile);
while not eof (myfile) do
begin
readln(myfile,zvidku,kyda,chas);
if (kyda='Kiev ') and (chas>=19.0) then
begin
write(zvidku);
for i:=length(zvidku)+1 to 10 do write(' ');
writeln(kyda,chas:7:2);
end;
end;
close (myfile);
readln
end.