Напечатать данные тех работников, кто на сегодняшний день проработал уже не менее 5 лет

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
 
 // предполагаем, что MAS уже ввели
  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.

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.