Создать файл "Багаж", включающий в себя информацию:фамилия пассажира, количество и общий вес вещей, место следования.

[Регааа]

Создать файл "Багаж", включающий в себя информацию:фамилия пассажира, количество и общий вес вещей, место следования. Составить списки пассажиров, следующих в город N, с указанием общего веса багажа. По фамилии пассажира определить место его следования. Помогите люди добрые, выводит ошибку 113, нужно исправить код(

uses crt;
const
 n = 100;
 
type
 t = record
  kol, ves: integer;
  fam, gorod: string[20];
 end;
 
var
 f,g: File of Real;
 a: array[1..n] of t;
 str: string;
count, i, vibor: integer;
 BEGIN
clrscr;
Assign(f,'fail.dat');Reset(f);
Assign(g,'epic.dat');Rewrite(g);
end.
procedure vvod(count: integer);
  begin
   writeln;
   write('familia: ');
   readln(a[count].fam);
   write('mesto sledovania: ');
   readln(a[count].gorod);
   write('kol-vo veshey: ');
   readln(a[count].kol);
   write('vec bagazha: ');
   readln(a[count].ves);
   writeln;
end;
 
procedure vivod_gorod(count: integer);
  begin
   writeln;
   write('familia: ');
   readln(a[count].fam);
   write('mesto sledovania: ');
   readln(a[count].gorod);
   write('kol-vo veshey: ');
   readln(a[count].kol);
   write('vec bagazha: ');
   readln(a[count].ves);
   writeln;
end;
 
 procedure vivod_familia(count: integer);
  begin
   writeln;
   write('familia: ');
   writeln(a[count].fam);
   write('mesto sledovania: ');
   writeln(a[count].gorod);
end;
 
begin
 clrscr;
 count := 0;
 while true do
 begin
  write('vvedite 0 dlya vichod, 1 dlya vvoda, dlya otbora: 2-po gorody, 3-po familii: ');
  readln(vibor); 
  if vibor = 1 then
  begin
   inc(count);
   vvod(count);
  end
  else
   if vibor = 2 then
   begin
    writeln;
    write('vvedite gorod dlya viborki: ');
    readln(str);
    if count = 0 then writeln('baza pysta!')
    else
     for i := 1 to count do
      if a[i].gorod = str then vivod_gorod(i);
    writeln;
   end    
  else
  if vibor = 3 then
  begin
  writeln;
  write ('vvedite familiu dlya viborki: ');
  readln(str);
  if count = 0 then writeln ('baza pysta')
  else 
     for i := 1 to count do
  if a[i].fam = str then vivod_familia(i);
  writeln;
  end;
   if vibor = 0 then break;
    clrscr;
close(f); close(g);
 end;
end.