Исправить немного. Записи.

Program Mash;
const name='fail.txt';
type zapis=record   
nom,time,kol:integer;
pynct: string ;
end;
 
Var f:file of zapis;
baze:zapis;
n,i:integer;
begin
blrscr;
assign(f,name);
rewrite(f);
write('vvedite kol-vo zapisei:');
readln(n);
for i:=1 to n do begin
write('vvedite nomer reisa:');
readln(baze.nom);
write('vvedite pynkt naznachenia:');
readln(baze.pynct);
write('vvedite vrema vileta*:');
readln(baze.time);
write('vvedite kol-vo svobodnix mest:');
readln(baze.kol);
writeln;
end;
 
close(f);
write('vvedite nomer reisa dliz poiska:');
readln(n);
reset(f);
while baze.nom<>n do
read(f,baze);
 
writeln('vremia vileta ',baze.time,' reisa №' ,baze.nom);
writeln('na reise № ',baze.nom,' ostalos ',baze.kol,' svobodnix mest.');
readln;
close(f);
end.

Program Mash;
uses crt;{добавил модуль и процедуру clrscr для очистки экрана,можете убрать}
const name='fail';
{для типизированных файлов расширение не обязательно, тем болле .txt более принято для текстовых файлов}
type zapis=record       
           nom,kol:integer;
           pynct,time: string;{время никак одним целым числом не введешь, лучше строкой, например 12:53}
           end;
Var f:file of zapis;
    baze:zapis;
    n,i,k:integer;
begin
clrscr;
assign(f,name);
rewrite(f);
write('vvedite kol-vo zapisei:');
readln(n);
for i:=1 to n do
 begin
   writeln('Zapis ',i);
   write(' vvedite nomer reisa: ');readln(baze.nom);
   write(' vvedite pynkt naznachenia: ');readln(baze.pynct);
   write(' vvedite vrema vileta: ');readln(baze.time);
   write(' vvedite kol-vo svobodnix mest: ');readln(baze.kol);
   write(f,baze);{собственно запись компоненты в типизированный файл}
   writeln;
 end;
clrscr;
reset(f);{открываем файл для вывода всех данных на экран}
writeln('Svedenia o nalichii biletov:':35);
writeln('---------------------------------------------');
writeln('| #rejsa |   Pynkt    | Vremya  | Kol. mest |');
writeln('---------------------------------------------');
while not eof(f) do
   begin
    read(f,baze);
    gotoXY(1,whereY);write('| ',baze.nom);
    gotoXY(10,whereY);write('| ',baze.pynct);
    gotoXY(23,whereY);write('| ',baze.time);
    gotoXY(33,whereY);write('|   ',baze.kol);
    gotoXY(45,whereY);write('|');
    writeln;
  end;
writeln('---------------------------------------------');
readln;
clrscr;
close(f);
write('vvedite nomer reisa dlya poiska vremeni vyleta:  ');
readln(n);
reset(f);{открываем для поиска по времени, лучше каждый поиск делать отдельно, у Вас в задании поиск для разных рейсов}
k:=0;
while not eof(f) do
 begin
  read(f,baze);
  if baze.nom=n then{если поле номер совпало, а номер рейса это не 1,2,3..., а наприме 7529, а еще бывают с буквами, типа АК-456, тогда надо тип поля номер сделать строковым и, соответственно, переменную для запроса тоже строковой}
   begin
    writeln('Vremya vyleta ',baze.time);
    k:=1;{фиксируем совпадение}
   end;
 end;
if k=0 then writeln('Takogo rejsa net!');
writeln;
close(f);
reset(f);{тоже самое для другого рейса и другого поля}
write('vvedite nomer reisa dlya poiska svobodnyh mest:  ');
readln(n);
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,baze);
  if baze.nom=n then
   begin
    writeln('Svobodnyh mest ',baze.kol);
    k:=1;
   end;
 end;
if k=0 then writeln('Takogo rejsa net!');
close(f);
readln;
end.