program Rozklad;
{$APPTYPE CONSOLE}
uses
SysUtils;
var myfile: text;
zvidku: string[10];
kyda: string[10];
chas: real;
begin
assign (myfile ,'C:\Documents and Settings\Пользователь\Рабочий стол\АМП\ьбт\poizd.txt');
reset (myfile);
while not eof (myfile) do
begin
readln (myfile, zvidku, kyda, chas);
if kyda='Kiev '
then writeln (zvidku:10, kyda:10, chas:2:2);
end;
close (myfile);
readln
end.
Что не правильно подзкажите....