Посчитать зарплату

[Катя100]

Помогите посчитать среднюю зарплату мужчин и женщин,можно ли это сделать без массива?

program my;
uses crt;
type baza=record
     fam:string[40];
     god:word;
     pol:char;
     zarp:word;
end;
var  f:file of baza;
     punkt:integer;
     m:integer;
procedure vvod;
var
    bd:baza;
begin
  rewrite(f);
  repeat
  begin
   write('Vvedite familia I.O.  ');
   readln(bd.fam);
   write('Vvedite pol(m/w) ');
   readln(bd.pol);
   write('Vvedite god postyplenia na raboty  ');
   readln(bd.god);
   write('Vvedite zarplaty  ');
   readln(bd.zarp);
   write(f,bd);
   writeln('Prodolgit?Da-1,Net-0');
   readln(m);
   end;
  until m=0;
  close(f);
  end;
procedure prosmotr;
var bd:baza;
sum1,sum2,kol1,kol2:integer;
 
begin
clrscr;
reset(f);
writeln('------------------------------------------------------------------');
writeln('| Familia I.O.  | Pol   | Gog postyplenia na paboty  |   Zarplata|');
writeln('------------------------------------------------------------------');
while not eof(f) do
begin
    read(f,bd);
{writeln('|',bd.fam,'            |    ',bd.pol,'  |               ',bd.god,'           |', bd.zarplata, '         |');      }
write('|', bd.fam:15,'|');
write('|', bd.pol:5, '|');
write('|', bd.god:10, '|');
writeln('|', bd.zarp:6, '|');
    writeln('-----------------------------------------------------------------------------');
    if bd.pol='w' then
   begin
    sum1:=sum1+bd.zarp;
    kol1:=kol1+1;
  end;
  if bd.pol='m' then
  begin
   sum2:=sum2+bd.zarp;
   kol2:=kol2+1;
  end;
  if kol1=0 then
          writeln('Net women')
  else writeln('Srednya zarplata women=',sum1/kol1);
  if kol2=0 then
          writeln('Net men')
  else writeln('Srednya zarplata men=',sum2/kol2);
end;
close(f);
readln;
end;
procedure Poisk;
var stag:integer;
    bd:baza;
    dt:word;
begin
    clrscr;
    reset(f);
    write('Vvedite daty postyplenia na rabory:');
    readln(dt);
    write('--------------------------------------------------------------------------------');
    writeln('|Familia I.O.| Pol| Gog postyplenia na paboty| Zarplata|');
    write('--------------------------------------------------------------------------------');
    while not eof(f) do
    begin
     read(f,bd);
     if bd.god= dt then
     begin
      write('|', bd.fam:6, '|');
      write('|', bd.pol:2, '|');
      write('|', bd.god:9, '|');
      writeln('|', bd.zarp:10, '|');
      write('--------------------------------------------------------------------------------') ;
      stag:=2013-dt;
      writeln('Stash=',stag);
      end
       else
       begin
       writeln('Net takoi daty postyplenia!!!');
     end;
end;
close(f);
readln;
end;
begin
  repeat
  clrscr;
  assign(f,'abc2.txt');
writeln('                                  MENU                      ');
writeln('1:Vvod');
writeln('2:Prosmotr');
writeln('3:Poisk');
writeln('4:Exit');
readln(punkt);
case punkt of
     1:Vvod;
     2:Prosmotr;
     3:Poisk;
     4:Exit
   end;
until punkt=4;
 writeln('Programa zakonchina');
readln;
end.

[s-andriano]

А сколько мужчин и женщин?

В принципе, можно посчитать и без массива - но очень муторно. И тем муторнее, чем больше охватываемый контингент.

Но если зарплата лежит в файле, то достаточно просто и без массива.

[Катя100]

А вот в том дело,что неизвестно точное количество..

А вот в том дело,что неизвестно точное количество..

[Utkin]

можно ли это сделать без массива?

А где он у Вас тута ?

Но если зарплата лежит в файле, то достаточно просто и без массива.

Там она и лежит.

[Катя100]

Я просто знаю как делать через массив,но это тогда надо все переделывать..может подскажите как по-другому?

[s-andriano]

Вы расскажите поподробнее, какая информация у Вас есть, в каком она виде, и что нужно получить на выходе и в каком виде.

[Son Of Pain]

Читать по одной записи из файла и считать точно так же, как и "через массив".

[Катя100]

Он должен считать из строки,а потом взять переменную zarp и при
помощи val переместить в число,а потом он только должен считать..

[Poma][a]

помощи val переместить в число

Вчесть чего? У Вас же zarp типа Word.
Примерно так :

PayOfMen := 0;
CountOfMen := 0;

PayOfWomen := 0;
CountOfWomen := 0;


while not EoF(f) do begin
        ReadLn (t); // t : Baza
        
        if t.pol = 'м' then begin
                Inc (CountOfMen);
                Inc (PayOfMen, t.zarp)
        end
        else begin
                Inc (CountOfWomen);
                Inc (PayOfWomen, t.zarp)
        end
end;

WriteLn ('The average male salary is ', PayOfMen / CountOfMen : 0 : 4);
WriteLn ('The average female salary is ', PayOfWomen / CountOfWomen : 0 : 4)

[Катя100]

Я делаю так,а она у меня когда 2 пункт нажимаю вылетает..