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

program my;
uses crt;
var fam,otch,name,pol:string[20];
data,zarplata:integer;
i,n:integer;
fin:text;
begin
clrscr;
write('Vvedite kolichestvo sotrudnikov ');
readln(n);
for i:=1 to n do
    begin
    writeln('Sotrudnik nomer ',i);
    write('Vvedite familliy:');
    readln(fam);
    write('Vvedite name:');
    readln(name);
    write('Vvedite otchestvo:');
    readln(otch);
    write('Vvedite pol:');
    readln(pol);
    write('Vvedite god postyplenia na raboty:');
    readln(data);
    write('Vvedite zarplata:');
    readln(zarplata);
writeln(fam,' ',name,otch);
writeln('Pol:',pol);
writeln('God postyplenia na raboty:',data);
writeln('Zarplata:',zarplata);
end;
readln;
end.

Type
  rec = Record
    fam,otc,nam: String;
    pol: Char;
    dat,zar: Integer;
  end;
Var
  i,n,sm,sf,km,kf: Integer;
  x: Array [1..50] of rec;
BEGIN
Write('Введите кол-во сотрудников: ');
Readln(n);
For i:=1 to n do
begin
  Writeln('Сотрудник номер ',i);
  Writeln('Фамилия: '); Readln(x[i].fam);
  Writeln('Имя: '); Readln(x[i].nam);
  Writeln('Отчество: '); Readln(x[i].otc);
  Writeln('Пол (м/ж): '); Readln(x[i].pol);
  Writeln('Год поступления на работу: '); Readln(x[i].dat);
  Writeln('Зарплата: '); Readln(x[i].zar);
  If x[i].pol='м' Then
  begin
    sm:=sm+x[i].zar;
    km:=km+1;
  end;
  If x[i].pol='ж' Then
  begin
    sf:=sf+x[i].zar;
    kf:=kf+1;
  end;
end;
If km=0 Then Writeln('Мужчин нет')
Else Writeln('Средняя зарплата мужчин = ',sm/km:2:2);
If kf=0 Then Writeln('Женщин нет')
Else Writeln('Средняя зарплата женшин = ',sf/kf:2:2);
Readln
END.

If x[i].pol='м' Then
  begin
    sm:=sm+x[i].zar;
    km:=km+1;
  end;
  If x[i].pol='ж' Then
  begin
    sf:=sf+x[i].zar;
    kf:=kf+1;
  end;