Нужно сделать по заданию.Одна ошибка в 25 строке. Нужна п о м о щ ь

uses crt;
const n=3;
      zag='                           Расписание поездов';
      line='---------------------------------------------------------------------';
      shap='|  Номер  |  Станция назначения  | Отправление | Билеты | Стоимость |';
 
type trains = record
     nom:  string[8];
     naz:  string[20];
     voc:  byte;
     vom:  byte;
     bil:  char;
     zen:  real;
     end;
 
var f:file of trains;
    t: trains;
    i,z:byte;
    s:string;
 
begin
assign(f,'C:\trains.dta');
rewrite(f);
writeln('Внесите данные о поездах: ');
for i:=1 to n do
    with t do
         begin
         write('Номер ',i,' поезда: '); readln(nom);
         write('Назначение: '); readln(naz);
         repeat
         write('Отправление(часы и минуты через пробел): '); read(voc,vom);
         until (voc in [1..23]) and (vom in [1..59]);
         repeat
         write('Наличие билетов (0-нет, 1-есть): '); readln(z);
         until z in [0..1];
         if z=1 then bil:='+' else bil:='-';
         write('Цена билета: '); readln(zen);
         write(f,t);
         end;
close(f);
clrscr;
z:=1;
repeat
writeln('0-завершение работы');
writeln('1-вывод расписания поездов из файла');
writeln('2-вывод времени отправления поезда по номеру');
readln(z);
if z=1 then
   begin
   clrscr;
   writeln(zag);
   writeln(line);
   writeln(shap);
   writeln(line);
   reset(f);
   while not eof(f) do
         begin
         read(f,t);
         with t do
         writeln('|',nom:8,'|':2,naz:20,'|':3,voc:7,':',vom:2,'|':4,bil:5,'|':4,zen:8:1,'|':4);
         writeln(line);
         end;
   end;
if z=2 then
   begin
   write('Номер поезда: '); readln(s);
   reset(f);
   while not (eof(f)) do
         begin
         read(f,t);
         if t.nom=s then
            writeln('Время отправления поезда ',t.voc:2,':',t.vom:2);
         end;
   end;
until z=0;
close(f);
readln;
end.

for i:=1 to n do

for var i:=1 to n do

for i: byte:=1 to n do