Помогите написать блок-схему к программе

[nastiay]

Type   TTrain=record
          Marshrout:String;
          aTime:Array [1..2,1..2] of byte;
           end;        
var   trains:array[1..18] of Ttrain;
         i:integer;     
begin
         for i:=Low(trains) to High (trains) do with trains[i] do  begin
         writeln('Sleduushiy marshrut:');
         writeln ('Nazvanie':30); Readln(Marshrout);
         writeln('Chas otpravlenia':30); Readln (aTime[1,1]);
         writeln ('Minuta otpravlenia':30); Readln (aTime[1,2]);
         writeln ('Chas pribitia':30); Readln(aTime[2,1]);
          writeln ('Minuta pribitia':30); Readln(aTime[2,2]);
                    end;                             
for i:=Low (trains) to High (trains) do with trains [i] do begin
if not ((aTime [1,1]>=17) and (aTime [1,2]>=0) and
(aTime [2,1]<=20) and (aTime [2,2]<=30)) then Continue;
writeln ('Marshrut:');
writeln('Nazvanie':30,Marshrout:10);
writeln('Chas otpravlenia':30, aTime [1,1]:10);
writeln('Minuta otpravlenia':30,aTime [1,2]:10);
writeln('Chas pribitia':30,aTime [2,1]:10);
writeln('Minuta pribitia':30,aTime[2,2]:10);
end;
readln;
end;