Ошибка "Типизированный файл не может содержать элементы такого типа". Помогите исправить

program practic_no1;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          {from Mr.Thompson}
uses crt, graphABC;
Label endl, action, eror, glavnaya;
Type
     {тип клиент}
     client=record
       FIO:string;
       po_credit:byte;
       sum_credit:longint;
       dolg:longint;
       date:string;
     end;
     {тип фирма}
     main=record
     cl:client;
     type_bud:string;
     cost:longint;
     firm:string;
     end;
    base= file of main;
    massiv=array[1..50]of main;
var a,b: base;
    i,z,r:integer;
    s:real;
    rez: integer;
    name_polz: string;
    p:main;
    db:massiv;
procedure titylka;
Label endl,endl2;
var x1,y1,x2,y2,x3,y3,x4,k,y4,i,j:integer;
    xc,yc:integer;
      begin
      clrscr;
      writeln('Санжура Нинель');
      writeln('1-РПЗ-12');
      if r=1 then writeln('Работа завершена');
      SetBrushColor(clGreen);
      rectangle(100,100,200,250);
      MoveTo(100,100);
      LineTo(150,50);
      lineTo(200,100);
      SetBrushColor(clBrown);
      rectangle(150,180,190,250);
      endl2:
      readln;
      end;
procedure poisk;{Найти сумму вклада}
var poisk:base;
    i,q:integer;
    max,s,max_i:longint;
  begin
  assign(a,'base1.bd');
  reset(a);
  i:=1;max:=1;
  while not eof (a) do
        begin
        read(a, db[i]);
        inc(i);
        end;
  writeln('Введите сумму вклада');
  readln(s);
  q:=0;
  for i:=1 to filesize(a) do
      begin
      if s=db[i].cl.sum_credit then
         if db[i].cost>max then
         begin
         max:=db[i].cost;
         max_i:=i;
         q:=1;
         end;
      end;
  close(a);
  if q=1 then writeln(db[max_i].type_bud,' - Постройка с максимальной стоимостью при данном вкладе')
  else writeln('Тип постройки с максимальной стоимостью при данном вкладе не найден');
  readln;
  end;
procedure dobav;{Добавить клиента}
var i,o,l : integer;
    a: base;
  begin
  assign(a,'base1.bd');
  reset(a);
  i:=1;
  while not eof (a) do
        begin
        read(a, db[i]);
        inc(i);
        end;
  o:=1;
  while o<> 0 do
        begin
         clrscr;
         inc(i);
         writeln('Количество элементов базы:',filesize(a));
         write('Фамилия_Имя_Отчество: ');
         readln(db[i].cl.FIO);
         write('Дата рождения:');
         readln(db[i].cl.date);
         write('% по кредиту:');
         readln(db[i].cl.po_credit);
         write('Сумма вклада:');
         readln(db[i].cl.sum_credit);
         write('Долг:');
         readln(db[i].cl.dolg);
         write('Тип постройки:');
         readln(db[i].type_bud);
         write('Стоимость:');
         readln(db[i].cost);
         write('Фирма подрядчика:');
         readln(db[i].firm);
         seek(a,filesize(a));
         write(a,db[i]);
         write('Если конец записи то нажмите 0:');
         writeln('Для продолжения добавления людей в базу данных нажмите любой символ кроме 0');
         read(o);
         writeln('Количество элементов базы:',filesize(a));
         readln;
        end;
  close(a);
  end;
procedure MenuAdmina;{Меню админа}
  begin
  clrscr;
  writeln('Строительная фирма - "Home from Nelly"->',name_polz);
  readln;
  writeln('1 - Добавить клиента в базу данных.');
  writeln('2 - Найти тип постройки');
  
  writeln('9 - На главную.');
  writeln('0 - Выход.');
  readln(rez);
  end;
procedure MenuPolz;{Меню пользователя}
  begin
  clrscr;
  writeln('Строительная фирма - "Home from Nelly"->',name_polz);
  readln;
  writeln('2 - Найти тип постройки');
  writeln('9 - На главную.');
  writeln('0 - Выход.');
  readln(rez);
  end;
procedure ShowMenu1;{Главное меню}
  begin
       clrscr;
       textcolor(2);
       writeln('Строительная фирма - "Home from Nelly"');
       textcolor(4);
       writeln('1 - Авторизация');
       writeln('0 - Выход');
       readln(rez);
  end;
procedure ShowMenu2;{Меню авторизации}
  begin
       clrscr;
       textcolor(2);
       writeln('Строительная фирма - "Home from Nelly"->Авторизация');
       textcolor(4);
       writeln('1 - Войти как администратор.');
       writeln('2 - Войти как пользователь.');
       writeln('0 - Выход.');
       readln(rez);
  end;
procedure MenuPolzV(var name_polz: string);{Пользователь вход}
  begin
       clrscr;
       writeln('Введите Фамилию_Имя(через"_").');
       readln(name_polz);
       if name_polz = 'Санжура_Нинель' then
          begin
          writeln('Здравствуйте ',name_polz,', вы зашли как администратор.');
          readln;
          menuadmina;
          end
       else
           begin
           writeln('Здравствуйте ',name_polz,', вы зашли как пользователь.');
           readln;
           menupolz;
           end;
  end;
procedure MenuAdminaV(var name_polz: string);{Админ вход}
  begin
       clrscr;
       writeln('Введите Фамилию_Имя(через"_").');
       readln(name_polz);
       if name_polz = 'Санжура_Нинель' then
          begin
          writeln('Здравствуйте Санжура Нинель, вы зашли как администратор.');
          readln;
          menuadmina;
          end
       else
           begin
           writeln('Доступ ограничен.');
           readln;
           writeln('Здравствуйте ',name_polz,', вы пользователь.');
           readln;
           menupolz;
           end;
  end;
{ТЕЛО ПРОГРАММЫ}
begin
r:=0;
titylka;
eror:
glavnaya:
showmenu1;
case rez of
     1:showmenu2;
     0:goto endl;
     else goto eror;
     end;
case rez of{для входа админом нужно ввести "Санжура_Нинель"}
     1:menuadminav(name_polz);
     2:menupolzv(name_polz);
     0:goto endl;
     else goto eror;
     end;
action:
case rez of
     1:dobav;
     2:poisk;
     9:goto glavnaya;
     0:goto endl;
     else goto eror;
     end;
goto glavnaya;
endl:clrscr;
writeln('Работа завершена');
r:=1;
titylka;
end.

type_bud:string[50];
cost:longint;
firm:string[50];