Файлы Тубро Паскаль

Program administrator;
uses crt;
 type
 nomera=record
  nom: byte;
  klass: byte;
  kol_mest: byte;
  kol_sv_mest: byte;
  cena:integer;
 end;
 gosti=record
  fam: string[15];
  im: string[10];
  data_r: integer;
  pasport: string[15];
  nom: byte;
  data_pr: integer;
  data_ot: integer;
  kol_dn: byte;
 end;
var
  f1:file of nomera;
  f2:file of gosti;
  a:nomera;
  b:gosti;
  i:byte;
  k,n:integer;
 
{Procedura vvoda dannblx po nomeram}
 
  procedure vvod_nom;
  var
  a:nomera;
  n,m:integer;
  Begin
  assign(f1,'nomera.txt');
  rewrite(f1);
  write ('vvedite kol-vo nomerov');
  readln(n);
  writeln;
  for m:=1 to n do
  with a do
   begin
    write('vvedite N nomera');
    readln(nom);
    write('vvedite klass nomera(1-3)');
    readln(klass);
    write('vvedite kol-vo mest');
    readln(kol_mest);
    write('vvedite kol-vo svobodnblx mest');
    readln(kol_sv_mest);
    write('vvedite cenu  N za cheloveka');
    readln(cena);
    writeln;
    write(f1,a);
   end;
  close(f1);
end;
procedure read_nom;
var a:nomera;
begin
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  with a do
  writeln(nom,' ',klass,' ',kol_mest,' ',kol_sv_mest,' ',cena);
 end;
close(f1);
end;
begin
vvod_nom;
read_nom;
end.