ошибка"нет перегруженной программы"

[ЕкатеринаТ]

var
 sotrudn:array[1..10] 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 10 do begin
with sotrudn[i] do
begin
      Writeln('Введите фамилию сотрудника.');
      readln(LD.fam);
      Writeln('Укажите должность сотрудника');
      readln(RD.dolgnost);
      Writeln('Укажите дату поступления сотрудника на службу в формате "дд.мм.гг.');
      readln(RD.date_nach_rab);
stag_rabot;
      writeln ('Стаж работы сотрудника ',RD.stag,' лет.');
zar_pl;
      writeln ('Заработная плата сотрудника-',RD.zar_plata:5:0);
end;
assign(base, 'D:\base_of_data.dat');
rewrite(base);
write(base, sotrudn[i]);
close (base);
end;
end.

Помогите определить почему выдает на выделенной строке ошибку нет перегруженной подпрограммы с таким количеством параметров. Я так понимаю что я что-то не описала?


_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

а вы откройте справочку (или интернет) и прочитайте описание процедуры VAL()

(там должно быть ТРИ параметра:
- строка,
- переменная_куда_преобразовываем,
- переменная_код_ошибки_преобразовани я

[Stilet]

Именно так. Решается это просто:

procedure stag_rabot;
var
stroka1:string;
     st_rab,st,err:integer;
begin
     stroka1:=copy(sotrudn[i].RD.date_nach_rab,7,4);
     val(stroka1,st,err);
     if err<>0 then write('Кораллоул!!! Котострофие!!! В числе ',stroka1,' ',err,'-й символ портит картину!');

[ЕкатеринаТ]

ООО спасибки вам большое!!! все пошло)))