Найти фамилии владельцев и номер автомобилей заданной пользователем марки

program mawini;
uses crt;
type
Car_rec=record
Marka:string[40];
Vladelez:string[30];
nomer:integer;
end;
var
car:car_rec;
f:file of car_rec;
marka_car:string[30];
procedure cr_input_file;
var i,n:integer;
begin assign(f,'C:\biblio.dat');
rewrite(f);
write('Введите количество необходимых записей:');
readln(n);
for i:=1 to n do
begin
write('Запись',i,',');
write('Владелец:');
readln(car.vladelez);
write('Название Марки:');
readln(car.marka);
write('Номер Машини:');
readln(car.nomer);
write(f,car);
writeln('--------------------------------------------');
end;
close(f);
end;
procedure outputfile;
var i:integer;
begin
assign(f,'c:\Biblio.dat');
reset(f);
writeln('Каталог машин');
writeln('---------------------------------------------');
writeln('#','    Владелец ','  Марка  ','  Номер');
i:=1;
while not EOF(f) do
begin
read(f,car);
writeln(i,car.vladelez:10,car.marka:9,car.nomer:8);
i:=i+1;
end;
readln;
close(f);
end;
procedure search;
var k,i:integer; flag:boolean;
begin
assign(f,'c:\biblio.dat');
reset(f);
writeln('Введите марку машини:');
readln(marka_car);
writeln('----------------------------------');
k:=0; flag:=false; i:=1;
while not EOF(f) do
  begin
   read(f,car);
   if marka_car=car.marka then
      begin
        writeln(i,'  ',car.vladelez,'  ',car.marka,'  ',car.nomer);
        flag:=true;
        k:=k+1;
      end;
   i:=i+1;
  end;
   if flag then writeln('V biblioteke naideno ',k,' marok')
   else writeln('takix marok netu');
readln;
close(f);
end;
procedure menu;
var ch:char;
begin
repeat
clrscr;
writeln;
writeln('1. Создать и заполнить файл');
writeln('2. Открить фал для чтения');
writeln('3. Найти фамилию владельца');
writeln('4. Нажмите Esc для выхода ');
ch:=readkey;
case ch of
'1':begin clrscr; cr_input_file; end;
'2':begin clrscr; outputfile;end;
'3':begin clrscr; search;end;
end;
until ch=#27;
end;
begin
menu
end.

program hhhh;
uses crt;
type A= record
      marka:string;
      nomer:integer;
      fam:string;
     end;
Var car:A;
    S:string;  i,n:integer;
    F:File of A;
Begin
  Assign(f,'C:\car');
  ReWrite(f);
  repeat
    Write('Введите колличество записей ');
    readLn(n);
  until n > 1;
  for i:=1 to n do
  begin
  With car do
  begin
    WriteLn('Марка : ');
    readLn(marka);
    WriteLn('Номер : ');
    readLn(nomer);
    WriteLn('Фамилия : ');
    readLn(fam);
    WriteLn;
  end;
  Write(f,car);
  end;
close(f);
end.

Program ggg;
uses crt;
type A= record
      marka:string;
      nomer:integer;
      fam:string;
     end;
     Fail=File of A;
Var car:A;F:fail;
    S:string;
Procedure Finde(st:string;Var FF:fail);
begin
  While not eof(ff) do
begin
  read(ff,car);
  With car do
   if marka = st then
     begin
       WriteLn('Найдено : ');
       Write('Фамилия ',fam,' Номер ',nomer);
     end;
end;
WriteLn;
end;
Procedure Procmotr(Var ff:fail);
begin
ReSet(ff);
  While not eof(ff) do
  begin
    read(ff,car);
    With car do
      WriteLn('Номер ',nomer,' Марка ',Marka,' Фамилия ',fam);
  end;
end;
Var c:char;
Begin
Assign(f,'C:\car');
ReSet(f);
  WriteLn('1: Просмотр ');
  WriteLn('2: Поиск ');
  WriteLn('3: Выход - любая клавиша ');
 c:=readkey;
case c of
'1':Procmotr(f);
'2':
begin
  Write('Введите Марку ');
  readLn(s);
  Finde(s,f);
end;
end;
close(f);
end.