Moskva    Kiev      22.30
Berlin    Odesa     09.00
Rum       Kiev      19.50
Yalta     Parish    19.30
Xarkiv    Kiev      15.25

var
 myfile: text;
 S,zvidku,kyda,time: string;
 chas: real;
 i,Code:Integer;

begin
 assign(myfile ,'D:\poizd.txt');
 reset(myfile);
 while not eof (myfile) do
  begin
   readln(myfile,S);
   i:=1;
   zvidku:='';
   while S[i]<>' ' do
    begin
     zvidku:=zvidku+S[i];
     Inc(i);
    end;
   while S[i]=' ' do Inc(i);
   kyda:='';
   while S[i]<>' ' do
    begin
     kyda:=kyda+S[i];
     Inc(i);
    end;
   while S[i]=' ' do Inc(i);
   time:='';
   while i<=length(S) do
    begin
     time:=time+S[i];
     Inc(i);
    end;
   VAL(time,chas,Code);
   if (kyda='Kiev') and (chas>=19.0) then
    begin
     write(zvidku);
     for i:=length(zvidku)+1 to 10 do write(' ');
     writeln(kyda+'   '+time);
    end;
  end;
 close (myfile);
 readln
end.

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.

Var
 f:Text;
 n:Integer;
 C:Char;
BEGIN
 Assign(f,'D:\fff');
 Rewrite(f);
 Close(f);
 Repeat
  Write('Next n (Y/N)? ');
  Readln(C);
  If (C='Y') or (C='y') then
   begin
    Append(f);
    Write('n= ');
    Readln(n);
    Writeln(f,n);
    Close(f);
   end
   else
    begin
     Write('Show file (Y/N)? ');
     Readln(C);
     If (C='Y') or (C='y') then
      begin
       Reset(f);
       Repeat
        Readln(f,n);
        Write(n,' ');
       Until EoF(f);
       Close(f);
       Writeln;
      end;
     end;
 Until (C='N') or (C='n');
END.