типизированые файлы

program pr1;
 
type
 TKlient=record
 proc_za_kredit:real;
 sum_vklada_v_bank:real;
 neviplach_sum:real;
end;
 
 TStroenie=record
 Index:boolean;
 Nazvanie:string;
 Klient:TKlient;
 Stoimost:real;
 Tip_stroenia:string;
 Firma_podradchik:string;
end;
 
 
var
h,n:integer;
  Stroenie:array[1..10] of TStroenie;
procedure DrawLine;
var i:integer;
 begin
  for i:=1 to 79 do
   Write('-');
   writeln(' ');
 end;
 
procedure Vvod;
var i:integer;
begin
 for i:=1 to n do
  begin
   Stroenie[i].Index:=true;
   writeln('Введите название ',i,'-ого строения');
   readln(Stroenie[i].Nazvanie);
 
   writeln('Введите стоимость ',i,'-ого строения');
   readln(Stroenie[i].Stoimost);
 
   writeln('Введите тип ',i,'-ого строения');
   readln(Stroenie[i].Tip_stroenia);
 
   writeln('Введите фирму-пордрячика ',i,'-ого строения');
   readln(Stroenie[i].Firma_podradchik);
 
   writeln('Введите проценты за кредит ',i,'-ого клиента');
   readln(Stroenie[i].Klient.proc_za_kredit);
 
   writeln('Введите сумму вклада в банк ',i,'-ого клиента');
   readln(Stroenie[i].Klient.sum_vklada_v_bank);
 
   writeln('Введите невыплаченную сумму ',i,'-ого клиента');
   readln(Stroenie[i].Klient.neviplach_sum);
  end;
end;
 
 
procedure Vivod;
var i:integer;
begin
 writeln('База данныых');
 writeln('                                      Строения                 ');
 for i:=1 to n do
  begin
   DrawLine;
   writeln('Строение ',i);
   DrawLine;
   writeln('Название строения - ',Stroenie[i].Nazvanie);
   writeln('Стоимость строения - ',Stroenie[i].Stoimost);
   writeln('Тип строения - ',Stroenie[i].Tip_stroenia);
   writeln('Фирма-подрядчик  - ',Stroenie[i].Firma_podradchik);
   writeln('Проценты за кредит - ',Stroenie[i].Klient.proc_za_kredit);
   writeln('Сумма вклада в банк - ',Stroenie[i].Klient.sum_vklada_v_bank);
   writeln('Невыплаченная сумма - ',Stroenie[i].Klient.neviplach_sum);
   DrawLine;
   writeln;
   writeln;
   writeln;
 end;
end;
 
 
procedure Zapros1;
var
i:integer;
begin
 writeln('Запрос 1, Стоимост, тип и фирма подрядчик строения, и сумма вклада в банк клиента этого строения');
 for i:=1 to n do
  begin
   DrawLine;
   writeln('Строение ',i);
   DrawLine;
   writeln('Стоимость строения - ',Stroenie[i].Stoimost);
   writeln('Тип строения - ',Stroenie[i].Tip_stroenia);
   writeln('Фирма-подрядчик  - ',Stroenie[i].Firma_podradchik);
   writeln('Сумма вклада в банк - ',Stroenie[i].Klient.sum_vklada_v_bank);
   DrawLine;
   writeln;
   writeln;
 end;
end;
 
procedure Zapros2;
var
min:real;
i:integer;
begin
 writeln('Запрос 2, Определить вид постройки с минимальной стоимостью');
 min:=Stroenie[1].Stoimost;
 for i:=2 to n do
  begin
   if min>Stroenie[i].Stoimost then min:=Stroenie[i].Stoimost;
   DrawLine;
   writeln('Вид постройки с минимальной стоимостью ',Stroenie[i].Tip_stroenia,' - ',min,' стоимость');
   DrawLine;
  end;
end;
 
procedure Insert;
var
 i:integer;
begin
  writeln('Какую запись хотите вставить');
  readln(i);
  n:=n+1;
  if Stroenie[i].Index=true then writeln('Такая запись уже существует')
  else
   begin
    writeln('Введите название ',i,'-ого строения');
    readln(Stroenie[i].Nazvanie);
    writeln('Введите стоимость ',i,'-ого строения');
    readln(Stroenie[i].Stoimost);
    writeln('Введите тип ',i,'-ого строения');
    readln(Stroenie[i].Tip_stroenia);
    writeln('Введите фирму-пордрячика ',i,'-ого строения');
    readln(Stroenie[i].Firma_podradchik);
    writeln('Введите проценты за кредит ',i,'-ого клиента');
    readln(Stroenie[i].Klient.proc_za_kredit);
    writeln('Введите сумму вклада в банк ',i,'-ого клиента');
    readln(Stroenie[i].Klient.sum_vklada_v_bank);
    writeln('Введите невыплаченную сумму ',i,'-ого клиента');
    readln(Stroenie[i].Klient.neviplach_sum);
   end;
end;
 
procedure Alter;
var
i:integer;
begin
 
 writeln('Введите номер записи, которую хотите изменить');
 readln(i);
 if Stroenie[i].Index<>true then writeln('Такая запись не существует')
 else
 writeln('Введите название ',i,'-ого строения');
 readln(Stroenie[i].Nazvanie);
 writeln('Введите стоимость ',i,'-ого строения');
 readln(Stroenie[i].Stoimost);
 writeln('Введите тип ',i,'-ого строения');
 readln(Stroenie[i].Tip_stroenia);
 writeln('Введите фирму-пордрячика ',i,'-ого строения');
 readln(Stroenie[i].Firma_podradchik);
 writeln('Введите проценты за кредит ',i,'-ого клиента');
 readln(Stroenie[i].Klient.proc_za_kredit);
 writeln('Введите сумму вклада в банк ',i,'-ого клиента');
 readln(Stroenie[i].Klient.sum_vklada_v_bank);
 writeln('Введите невыплаченную сумму ',i,'-ого клиента');
 readln(Stroenie[i].Klient.neviplach_sum);
end;
 
procedure Del;
var
i:integer;
begin
 writeln('Введите номер записи каторую хотите удалить');
 readln(i);
 Stroenie[i].Nazvanie:='удалено';
 Stroenie[i].Stoimost:=0;
 Stroenie[i].Tip_stroenia:='удалено';
 Stroenie[i].Firma_podradchik:='удалено';
 Stroenie[i].Klient.proc_za_kredit:=0;
 Stroenie[i].Klient.sum_vklada_v_bank:=0;
 Stroenie[i].Klient.neviplach_sum:=0;
end;
 
begin
 writeln('Введите количество записей');
 readln(n);
 if n>10 then begin writeln('Превышено количество записей');
                    writeln('Введите количество записей, не более 10');
                    readln(n);
              end;
 Vvod; cls;
 Vivod;
 Zapros1;
 Zapros2;
 writeln('Хотите втавить запись(Да - 1/Нет - 0)?');
 readln(h);
 if h=0 then writeln('Вы не хотите ввести запись');
 if h=1 then Insert;
 writeln('Хотите изменить запись(Да - 1/Нет - 0)?');
 readln(h);
 if h=0 then writeln('Вы не хотите изменить запись');
 if h=1 then Alter;
 writeln('Хотите удолить запись(Да - 1/Нет - 0)?');
 readln(h);
 if h=0 then writeln('Вы не хотите удолять запись');
 if h=1 then Del;
 Vivod;
end.