Корректировка записей в типизированном файле pascal abc.net

//У администратора железнодорожных касс хранится информация о свободных местах в поездах по всем направлениям на ближайшую неделю.
//Данная информация предоставлена в следующем виде : дата выезда, номер рейса, конечный пункт назначения, время отправления,
//число свободных купейных мест, число свободных плацкартных мест. Разработать программу для хранения информации в файле на дискете.
//Программа должна позволять корректировать записи, выдавать информацию об имеющихся местах по каждому рейсу и каждому типу мест.
type jd=record
     data_viezda:integer;
     reis:integer;
     pynkt_naz:string[20];
     vremya_otpravki:integer;
     svobod_kype:integer;
     svobod_plackart:integer;
     end;
var f:file of jd;
A:array[1..2] of jd;
p,i,g,m:integer;
s:string[30];
begin
  assign (f, 'e:\jdvokzal.txt');
  rewrite(f);
  for i:=1 to 2 do
  begin with a[i] do
    begin
      writeln('Введите дату выезда');
      readln(data_viezda);
      writeln('Введите номер рейса');
      readln(reis);
      writeln('Введите пункт назначения');
      readln(pynkt_naz);
      writeln('Введите время отправки');
      readln(vremya_otpravki);
      writeln('Введите число свободных купейных мест');
      readln(svobod_kype);
      writeln('Введите число свободных плацкартных мест');
      readln(svobod_plackart);
    end;
      write(f, a[i]);
  end;
  close(f);
  reset(f);
  writeln('Введите номер рейса');
  read(g);
  p:=0;
  for i:=1 to FileSize(f) do
    begin
      read(f, a[i]);
      if a[i].reis=g then 
        begin
        writeln('Информация по данному рейсу найдена');
        m:=(a[i].svobod_kype+a[i].svobod_plackart);
        writeln('Общее кол-во свободных мест: ' ,m);
        writeln('Кол-во свободных купейных мест');
        writeln(a[i].svobod_kype);
        writeln('Кол-во свободных плацкартных мест');
        writeln(a[i].svobod_plackart);
        end;
    end;
  end.