Посчитать среднюю зарплату мужчин и женщин

[Катя100]

Помоги посчитать среднюю зарплату мужчин и женщин..а то мне ошибку выдает..

program kursovik;
uses crt;
type baza=record
  fam:string[30];
  pol:char;
  god:word;
  zarp,chist:word;
  s,k:string;
 
end;
label cnova_god,cnova_zarp;
var f:file of baza;
    punkt:byte;
    bd:baza;
    s,k:string;
    code,v,m,sw,kw,sm,km:integer;
begin
while true do
begin
clrscr;
writeln('                                  MENU                      ');
writeln('1:Vvod');
writeln('2:Prosmotr');
writeln('3:Poisk');
writeln('4:Exit');
readln(punkt);
case punkt of
1:begin
  repeat
  begin
   write('Vvedite familia I.O.  ');
   readln(bd.fam);
   write('Vvedite pol(m/w) ');
   readln(bd.pol);
   cnova_god:write('Vvedite god postyplenia na raboty  ');
   readln(s);
   val(s,v,code);
   if code<>0 then
             begin
             textcolor(14);
             writeln('Neverno vvedena data ',s);
             textcolor(7);
             goto cnova_god;
             end;
   cnova_zarp:write('Vvedite zarplaty  ');
   readln(k);
   val(k,v,code);
   if code<>0 then
             begin
             textcolor(14);
             writeln('Neverno vvedina zarplata ',k);
             textcolor(7);
             goto cnova_zarp;
             end;
   writeln(bd.fam,' ', bd.pol,' ', s,' ', k);
   writeln('Prodolgit?Da-1,Net-0');
   readln(m);
   end;
  until m=0;
  end;
2:begin
  writeln('-----------------------------------------------------');
  writeln('|Familya I.O.|Pol|God postyplenia na raboty|Zarplata|');
  writeln('-----------------------------------------------------');
  write('|', bd.fam:12,'|');
  write( bd.pol:3, '|');
  write(s:25,'|');
  writeln(k:8,'|');
  writeln('-----------------------------------------------------');
  if bd.pol='w' then
   begin
    sw:=sw+k;
    kw:=kw+1;
  end;
  if bd.pol='m' then
  begin
   sm:=sm+k;
   km:=km+1;
  end;
  if kw=0 then
          writeln('Net women')
  else writeln('Srednya zarplata=',sw/kw);
  readln;
  end;
3:writeln('Poisk');
4:Exit;
else
  writeln('Net takogo punkta');
end;
end;
readln;
end.

[Stilet]

function Aver(sex:char):double;
var ave:double;i:integer;b:baza;
begin
 i:=0; ave:=0;
 reset(f);
 while not eof do begin
  read(f,b);
  if b.pol=sex then begin inc(i); ave:=ave+b.zarp;
 end;
 if i>0 then aver:=ave/i else aver:=0;
end;

Использовать так:

 write(
  'Средняя мужыкоффф: ',Aver(f,'m'):10:5,' ',
  'Средняя герлоff',Aver(f,'w'):10:5,
 );