че то не работает((!! умираю

[durachok)]

Задать запись «Sotrudniki», состоящую из полей: Surname (фамилия), name (имя), age (возраст), date (год принятия на работу), plata (размер заработной платы), pol (пол). Создайте массив записей. Заполните его и найдите: Найти сумму заработной платы сотрудников женского пола.---------------------------------------------------------
Program q2;
uses crt;
type
sotrudniki=record
surname:string;
name:string;
age:integer;
data:integer;
plata:integer;
pol:char;
end;
var zap: array [1..100] of sotrudniki;
a,s,i:integer;
begin
write('a=');
read(a);
for i:=1 to a do
begin
write('vvedite familiy');
read(zap[i].surname);
write('vvedite imia');
read(zap[i].name);
write('vvedite vozrast');
read(zap[i].age);
write('vvedite god priniatia na raboty');
read(zap[i].data);
write('vvedite razmer zarabotnoi plati');
read(zap[i].plata);
write('vvedite pol');
read(zap[i].pol);
end;
writeln('surname','name','age','pla ta','pol');
for i:=1 to a do
begin
write(zap[i].surname:9);
write(zap[i].name:4);
write(zap[i].age:3);
write(zap[i].data:4);
write(zap[i].plata:6);
write(zap[i].pol:2);
writeln;
end;
for i:=1 to a do
begin
if zap[i].pol='z'then
s:=s+zap[i].plata;
end;
writeln('summa=',s);
end.