[Asira]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

{$APPTYPE CONSOLE}   uses   SysUtils;   var t1,t2:TextFile;      fam:string[15];      pol:char;       pr:integer;      su,okl:real; begin  assign(t1,'1.txt');  assign(t2,'2.txt');  reset(t1);  rewrite(t2); okl:=0;  su:=0;  while not eof(t1) do   begin    readln(t1,fam,pol,okl);    if pol='ж' then     begin  su:=su+0.3*okl;     writeln(t2,fam,' ',pol,' ',okl,' ',su,' ',0.3*okl:0:0);      writeln(t2,fam,okl);        su:=su+pr; end;   end;  if (su<>0) and (okl<>0) then   write(t2,su/okl:0:3);  closefile(t1);  closefile(t2); end.

[Страдалецъ]

Тут уже для всех Новогодние праздники почти наступили, а у вас 8 марта.
У вас по условию и по коду открывается текстовый файл, т.е. данные хранятся в виде строк, а вы пытаетесь из него извлечь оклад как число.

[Asira]

АААА точно ....... оклад же число........ а как енту фигнюшку исправить ??? а то у меня ни 8 марта ни нового года не будет

[Asinkrit]

юзай StrToFloat и FloatToStr для перевода String в Real