Создать бинарный файл с информацией о наличии компьютеров для продажи

uses crt;
type pc=record
       Model:string[10];
       Freq:integer;
       RamSize:real;
       HddSize:real;
       Monitor:string[10];
       MonitorSize:real;
       Price:real;
      end;
var
  a:pc;
  f:file of pc;
  i,j,k:integer;
begin
  repeat
   clrscr;
    writeln('1.Ввод/Добавление  данных');
    writeln('2.Поиск информации');
    writeln('0.выход');
    write('Ваш выбор (цифра)>');readln(j);
    case j of
      1:begin
        assign(f,'pc.dat');
        if FileExists('pc.dat')then reset(f) else rewrite(f);
        seek(f,FileSize(f));
        write('Введите название компьютера:');readln(a.Model);
        write('Введите частоту процессора(ГГц):');readln(a.Freq);        
        write('Введите объем оперативной памяти(Мб):');readln(a.RamSize);        
        write('Введите объем жесткого диска(Гб):');readln(a.HddSize);        
        write('Введите тип монитора:');readln(a.Monitor);        
        write('Введите стоиомсть ПК:');readln(a.Price);
        write(f,a);
        close(f);
        write('Данные сохранены,нажмите enter для возврата в меню...');
        readln;
      end;
      2:begin
        assign(f,'pc.dat');
        reset(f);
        i:=-1;k:=0;
         while not eof(f) do begin
           read(f,a);
           if (a.RamSize>=2000) and (a.Freq>k)then begin k:=a.Freq;i:=FilePos(f)-1;end;
         if i=-1 then writeln('Данные не найдены') else begin
           seek(f,0);
           writeln('Компьютер':10,'Тактовая частота':20,'Объем ОЗУ':10,'Объем HDD':10,'Монитор':10,'Стоимость':10);           
           while not eof(f) do begin
             read(f,a);
             if (k=a.Freq) and (a.RamSize>=2000) then 
             writeln(a.Model:10,a.Freq:20,a.RamSize:10:0,a.HddSize:10:2,a.Monitor:10,a.Price:10:2);
           end;  
         end;
         end;
           close(f); 
         writeln('нажмите enter для возврата в основное меню...');
         readln;
      end;
      end;
  until j=0;  
end.