Массив записей в количестве 10

[perojenko]

Помогите пожалуйста

Массив записей в количестве 10
создать массив записей следующей структуры:
-фамилия
-возраст (кол-во лет)
-образование (высшее, среднее)
-стаж работы (кол-во лет)

выдать:
-кол-во сотрудников имеющих высшее образование
-кол-во сотрудников стаж которых от 4ех до 5и лет
-фамилии сотрудников старше 30 лет

пожалуйста
завтр экзамен

заранее спасибо

[fbus]

пиши в аську, сделаю быстро

[ОДИНОЧЕСТВО В СЕТИ]

{Помогите пожалуйста 

Массив записей в количестве 10
создать массив записей следующей структуры:
-фамилия
-возраст (кол-во лет)
-образование (высшее, среднее)
-стаж работы (кол-во лет)

выдать:
-кол-во сотрудников имеющих высшее образование
-кол-во сотрудников стаж которых от 4ех до 5и лет
-фамилии сотрудников старше 30 лет}
program shtat;
type sotr = record
fam: string;
age:integer;
obr: char;
st: integer;
end;
const n=10;
var a:array [1..10] of sotr;
i,v,s: integer;
begin
for i:= 1 to 10 do
 begin
 ReadLn(a[i].fam);
 ReadLn(a[i].age);
 ReadLn(a[i].obr);// 'v' или 's'
 ReadLn(a[i].st);
 end;
 s:=0;v:=0;
 writeln('starshe 30:')
 for i:= 1 to 10 do
 begin
 if (a[i].st>4)and(a[i].st<5) then inc(s);
 if(a[i].obr='v') then inc(v);
 if a[i].age >30 then writeln(a[i].fam);
end;
writeln('s vyshkoy',v);
writeln('staj 4-5 let',s);
readln;
end.

[perojenko]

спасибо все работает ^^