помогите с free Pascal

[vengoKR]

делаю базу данных,и вот этот исходник не хочет работать

Program kontrrabota;
uses crt;
type lich_dan=record
            fam:string[15];
            imja:string[15];
            otch:string[15];
            godrog: integer;
            sem_pol:byte;
            kol_det:byte;
end;
type rab_dan=record
            nom_otd:byte;
            dolgnost:string[15];
            date_nach_rab:string[15];
            stag:byte;
            zar_plata:real;
            secret:byte;
end;
type anketa=record
            LD: lich_dan;
            RD: rab_dan;
End;
var
     sotrudn:array[1..20] of anketa;
     i:integer;
     base:file of anketa;
procedure stag_rabot;
var
     stroka1:string;
     st_rab,st:integer;
begin
     stroka1:=copy(sotrudn[i].RD.date_nach_rab,7,4);
     val(stroka1,st);
     st_rab:=2012-st;
     sotrudn[i].RD.stag:=st_rab;
end;
procedure zar_pl;
     var dol_sotr:string[10];
begin
     dol_sotr:=sotrudn[i].RD.dolgnost;
     if dol_sotr='инженер' then
     sotrudn[i].RD.zar_plata:=20000*(1+0.05*sotrudn[i].RD.stag);
     if dol_sotr='начальник' then
     sotrudn[i].RD.zar_plata:=40000*(1+0.05*sotrudn[i].RD.stag);
     if dol_sotr='ассистент' then
     sotrudn[i].RD.zar_plata:=10000*(1+0.05*sotrudn[i].RD.stag);
end;
begin
clrscr;
writeln('Введите данные о сотрудниках.');
writeln;
for i:=1 to 20 do begin
with sotrudn[i] do
begin
      Writeln('Введите фамилию сотрудника.');
      readln(LD.fam);
      Writeln('Введите имя сотрудника.');
      readln(LD.imja);
      Writeln('Введите отчество сотрудника.');
      readln(LD.otch);
      Writeln('Введите год рождения сотрудника.');
      readln(LD.godrog);
      Writeln('Укажите семейное положение  сотрудника:');
      Writeln('1-если сотрудник женат/замужем, 2-если сотрудник  холост/не замужем.');
      readln(LD.sem_pol);
      Writeln('Укажите количество детей у сотрудника.'); readln(LD.kol_det);
      Writeln('Введите номер отдела, в котором работает сотрудник.'); readln(RD.nom_otd);
      Writeln('Укажите должность сотрудника');
      readln(RD.dolgnost);
      Writeln('Укажите дату поступления сотрудника на службув формате "дд.мм.гг.');
      readln(RD.date_nach_rab);
      Writeln('Укажите уровень доступа сотрудника к секретной информации.');
      readln(RD.secret);
stag_rabot;
      writeln ('Стаж работы сотрудника ',RD.stag,' лет.');
zar_pl;
      writeln ('Заработная плата сотрудника-',RD.zar_plata:5:0);
end;
assign(base, 'D:\base_of_data.dat');
rewrite(base);
for i:=1 to 20 do
write(base, sotrudn[i]);
close (base);
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Poma][a]

Дарю

[Serge_Bliznykov]

вот этот исходник не хочет работать

Вот же подлый!!!!

А что говорит? Так и пишет на экране - "Не хочу работать и всё тут!"

[ZX Spectrum-128]

Не, что-то делает.