program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n = 20;
type
TPerson = record
FIO: string;
Date: integer
end;
TMas = array[1..n] of TPerson;
var Mas, MasRes: TMas;
i, cnt: integer;
begin
for i := 1 to n do
begin
writeln(i,' - й человек из ', n,': ');
write('ФИО: '); readln(Mas[i].FIO);
write('С какого года работает? '); readln(Mas[i].Date);
writeln;
end;
cnt := 0;
for i := 1 to n do
begin
with Mas[i] do
if (2010 - Date) >= 5 then
begin
MasRes[i] := Mas[i];
inc(cnt)
end;
end;
for i := 1 to cnt do
begin
writeln('#', i);
writeln('ФИО: ', MasRes[i].FIO);
writeln('Работает с ', MasRes[i].Date, ' года. ');
writeln;
end;
readln
end.