Ошибка

[Катя100]

Подскажите,в чем ошибка?
program kursovik;
uses crt;
type baza=record
fam:string[30];
pol:char;
god:string;
zarp:string;

end;
label cnova_god,cnova_zarp;
var f:file of baza;
punkt:byte;
bd:baza;
code,v,m:integer;
sm,sw,km,kw: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
rewrite(f);
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(bd.god);
val(bd.god,v,code);
if code<>0 then
begin
textcolor(14);
writeln('Neverno vvedena data ',bd.god);
textcolor(7);
goto cnova_god;
end;
cnova_zarp:write('Vvedite zarplaty ');
readln(bd.zarp);
val(bd.zarp,v,code);
if code<>0 then
begin
textcolor(14);
writeln('Neverno vvedina zarplata ',bd.zarp);
textcolor(7);
goto cnova_zarp;
end;
write(f,bd);
writeln(bd.fam,' ', bd.pol,' ', bd.god,' ', bd.zarp);
writeln('Prodolgit?Da-1,Net-0');
readln(m);
end;
until m=0;
close(f);
end;
2:begin
writeln('-----------------------------------------------------');
writeln('|Familya I.O.|Pol|God postyplenia na raboty|Zarplata|');
writeln('-----------------------------------------------------');
write('|', bd.fam:12,'|');
write( bd.pol:3, '|');
write(bd.god:25,'|');
writeln(bd.zarp:8,'|');
writeln('-----------------------------------------------------');
if bd.pol='w' then
begin
sw:=sw+bd.zarp;
kw:=kw+1;
end;
if bd.pol='m' then
begin
sm:=sm+bd.zarp;
km:=km+1;
end;
if kw=0 then
writeln('Net women')
else writeln('Srednya zarplata women= ',sw/kw);
if km=0 then
writeln('Net men');
else writeln('Srednya zarplat men= ',sm/km);}
readln;
end;
3:writeln('Poisk');
4:Exit;
else
writeln('Net takogo punkta');
end;
end;
readln;
end.

[alexander13]

...
sw:=sw+bd.zarp;
...
sm:=sm+bd.zarp;
...

Складываете число со строкой. Имеет смысл сделать поле zarp такого же типа, как и sw и sm.

[Катя100]

Сообщение от alexander13

...
sw:=sw+bd.zarp;
...
sm:=sm+bd.zarp;
...

Складываете число со строкой. Имеет смысл сделать поле zarp такого же типа, как и sw и sm.

Тогда же не будет работать val..

[alexander13]

Сообщение от Катя100

Тогда же не будет работать val..

Ну, если Вам так хочется вводить зарплату строкой, то используйте тот же самый val при сложении с sw, sm. Чтобы слагаемые были одного типа.
Т. е. если у Вас там в переменной v хранится преобразованное в число значение, то его и прибавляйте.