program struct;
{$APPTYPE CONSOLE}
     uses
  SysUtils;
    type
      marsh = record
      nachalo:string[20];
      konec:string[20]; 

      nomer:Integer;
      vremya:Integer
    end;

    var
    raspis:array[1..4] of marsh ;
      i:integer;
          n:Integer;
          z:Integer
procedure input;
      begin
        writeln('nomer vvedennih dannih',i);
        write('nachalniy punkt');
          readln(raspis[i].nachalo);
        write('punkt naznacheniya');
           readln(raspis[i].konec);
        write('nomer marshruta');
           readln(raspis[i].nomer);
        write('vremya:');
           readln(raspis[i].vremya);
                                    end;
   procedure output;
       begin
           with raspis[i] do begin
             writeln('nachalniy punkt ',nachalo);
             writeln('konechniy punkt',konec);
             writeln('nomer marshruta',nomer);
             writeln('vremya',vremya);
           end;
       end;

  Anthony (19:44:41 14/12/2006)
begin
     writeln('vvod info: 1-Da,o-net');
     readln(z);
     if z=1 then
   for i:=1 to 4 do input
          else;


   readln(n);
      for i:= 1 to n do
     if n=raspis[i].nomer then output
         else writeln('takogo marhruta net');

      readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.