эммм... сомневаюсь в правильности решения))

[durachok)]

II. Задать запись «Sotrudniki», состоящую из полей: Surname (фамилия), name (имя), age (возраст), date (год принятия на работу), plata (размер заработной платы), pol (пол). Создайте массив записей. Заполните его и найдите:
1. Количество сотрудников женского пола.
2. Сумму заработной платы всех сотрудников.
3. Вывести всю информацию о сотрудниках мужского пола, чей возраст превышает 25 лет.
4. Найти количество сотрудников, чье имя соответствует введенному имени с клавиатуры.
5. Найти сумму заработной платы сотрудников женского пола.
6. Вывести всю информацию о сотрудниках, размер заработной платы которых менее 1000.
7. Найти количество сотрудников, чей год принятия на работу 2000.
8. Вывести имя и фамилию сотрудников, чей возраст менее 20 лет, а год принятия на работу 2000 или 2001.
9. Вывести фамилии сотрудников, чья заработная плата больше 1000, но меньше 3000.
10. Увеличить заработную плату сотрудников с именем «Иван» на 1000р.
11. Количество сотрудников мужского пола.
12. Среднюю заработную плату всех сотрудников.
13. Вывести всю информацию о сотрудниках, чей возраст не превышает 40 лет.
14. Найти количество сотрудников, чья фамилия соответствует введенной с клавиатуры.
15. Найти сумму заработной платы сотрудников мужского пола.
16. Вывести всю информацию о сотрудниках, размер заработной платы которых не менее 1000.

--------------------------------------------------------------------------
Program q2;
uses crt;
type
sotrudniki=record;
surname:string;
name:string;
age:integer;
data:integer;
plata:integer;
pol:char;
end;
var zar: 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]suname: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.


---------------------------------------------------------
правильно решена или нет??