По заданному регистрационному номеру автомобиля выдать фамилию владельца

program tt;
uses crt;
type Owner=record
  Marka:string[20];
  familia:string[15];
  adres:string[25];
  nomer:string[7];
  color:string[10];
end;
var
  karta:owner;
  f:file of owner;
  n:byte;
  fname:string;
  color_:string;
  marka_:string;
  nomer_:string;
  ch:char;
 
 
procedure enter(fname:string);
var
  ch1:char;
begin
  ClrSCr;
  {$I-}
  assign(f,fname);
  reset(f);
  {$I+}
  if IOResult<>0 then begin
    writeln('Фаил не найден, он был создан');
    rewrite(f);
  end
  else
    reset(f);
  while ch1<>'н' do begin
    ClrSCr;
    seek(f,FileSize(f));
    write('Введите фамилию владельца: ');
    readln(karta.familia);
    write('Введите адрес владельца: ');
    readln(karta.adres);
    write('Введите марку автомобиля: ');
    readln(karta.marka);
    write('Введите регистрационный номер: ');
    readln(karta.nomer);
    write('Введите цвет автомобиля: ');
    readln(karta.color);
    write(f,karta);
    writeln('Данные внесены в файл');
    write('Повторить ввод? (д/н)');
    readln(ch1);
  end;
  writeln('Для возврата в главное меню нажмите Enter');
  readln;
  close(f);
end;
 
procedure find_color_mark(fname:string; color_:string;marka_:string);
var
  j:boolean;
begin
   ClrSCr;
   j:=false;
  {$I-}
  assign(f,fname);
  reset(f);
  {$I+}
  if IOResult<>0 then
    writeln('Фаил не найден')
  else
    while not eof(f) do begin
       read(f,karta);
         if (karta.color=color_)and(karta.marka=marka_) then begin
           j:=true;
           writeln('Фамилия владельца: ',karta.familia);
           writeln('Адрес владельца: ',karta.adres);
           writeln('Марка автомобиля: ',karta.marka);
           writeln('Регистрационный номер: ',karta.nomer);
           writeln('Цвет автомобиля: ',karta.color);
           writeln;
         end;
    end;
   if j=false then writeln('Записи не найдены');
   writeln('Для возврата в главное меню нажмите Enter');
   readln;
   close(f);
end;
 
procedure find_nomer(fname:string;nomer_:string);
var
  k:boolean;
begin
  ClrScr;
  k:=false;
  {$I-}
  assign(f,fname);
  reset(f);
  {$I+}
  if IOResult<>0 then
    writeln('Фаил не найден')
  else
    while not eof(f) do begin
       read(f,karta);
         if karta.nomer=nomer_ then begin
           k:=true;
           writeln('Фамилия владельца: ',karta.familia);
           writeln('Регистрационный номер: ',karta.nomer);
           writeln;
         end;
    end;
   if k=false then writeln('Записи не найдены');
     writeln('Для возврата в главное меню нажмите Enter');
   readln;
   close(f);
end;
 
BEGIN
  repeat
  ClrSCr;
  writeln('1.Создать фаил');
  writeln('2.Поиск по цвету и марке авто');
  writeln('3.Поиск по регистрационному номеру');
  writeln('4.Выход');
  ch:=readkey;
  case ch of
    #49:begin
        ClrSCr;
        write('Путь и имя файла: ');
        readln(fname);
        enter(fname);
      end;
    #50:begin
         ClrSCr;
         write('Путь и имя файла: ');
         readln(fname);
         write('Цвет автомобиля: ');
         readln(color_);
         write('Марка автомобиля: ');
         readln(marka_);
         find_color_mark(fname,color_,marka_);
       end;
    #51:begin
        ClrScr;
        write('Путь и имя файла: ');
        readln(fname);
        write('Регистрационный номер: ');
        readln(nomer_);
        find_nomer(fname,nomer_);
      end;
  end;
  until ch=#52;
  exit;
END.