массив записей, паскаль

[Parada]

Здравствуйте! У меня такой вопрос: нужно создать массив записей, содержащих сведения о сотрудниках университета (фамилия и инициалы работающего, год рождения; название кафедры; стаж работы, должность, оклад). Вывести на экран следующие данные: средний стаж работающих на кафедре X и список профессоров пенсионного возраста с указанием стажа работы. Как можно вывести список пенсионеров и их стаж?

вот, что получилось:

program zadacha;
const n=3;
  type person=record
  fio,dol:string[30];
  nazv_kaf:string[40];
  birthyear:byte;
  stag:byte;
  oklad:byte;
  end;
var sotrudnik: array [1..n] of person;
   sp,x,i:integer;
   begin
   x:=0; sp:=0;
for i:=1 to n do
with sotrudnik[i] do
begin
     writeln ('введите ф.и.о.');
     readln (sotrudnik[i].fio);
     writeln ('введите год рождения');
     readln (sotrudnik[i].birthyear);
     writeln ('введите должность');
     readln (sotrudnik[i].dol);
     writeln ('введите название кафедры');
     readln (sotrudnik[i].nazv_kaf);
     writeln ('введите стаж');
     readln (sotrudnik[i].stag);
     writeln ('введите оклад');
     readln (sotrudnik[i].oklad);
     x:=s+sotrudnik[i].stag;
end;
x:=round(x/n);
writeln ('средний стаж ' ,x);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Son Of Pain]

Найти в цикле всех, у кого год рождения меньше 1951 )

[Parada]

а как потом занести их в список?)

[Son Of Pain]

Можно в другой массив скопировать, например )
Или просто на экран выводить по ходу нахождения.

[Parada]

да, спасибо) все просто оказалось.