Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г - Turbo Pascal (29438)

Формулировка задачи:

Помогите пожалуйста решить задачу. Только без массива из имени. Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г.

Решение задачи: «Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г»

Листинг программы

program ghost;
 
uses
  crt;
 
type
  man = record
    fam:  string;
    Name: string;
    Data: integer;
  end;
var
  perepis: array[1..5] of man;
  i: integer;
  Count: integer;
begin
  for i := 1 to 5 do
  begin
    clrscr;
    writeln('ВВОД СВЕДЕНИЙ О ПЕРСОНЕ №', i);
    writeln;
    Write('family: ');
    readln(perepis[i].fam);
    Write('name: ');
    readln(perepis[i].Name);
    Write('date: ');
    readln(perepis[i].Data);
  end;
  clrscr;
  Count := 0;
  for i := 1 to 5 do
  begin
    if (perepis[i].Data > 1990) then
    begin
      Inc(Count);
      Write('family: ', perepis[i].fam);
      writeln;
      Write('name: ', perepis[i].Name);
      writeln;
      Write('date: ', perepis[i].Data);
      writeln;
      writeln('_____');
    end;
  end;
  writeln('count: ', Count);
  readkey;
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Создает тип данных man, который представляет собой запись с полями fam (семья), Name (имя) и Data (дата).
Объявляет переменные perepis и i для хранения информации о персонажах и их количестве соответственно.
Заполняет массив perepis пятью записями о персонажах, каждая из которых содержит информацию о семье, имени и дате рождения.
Инициализирует переменную Count для подсчета количества персонажей, родившихся после 1990 года.
Использует цикл for для перебора пяти записей о персонажах в массиве perepis.
Внутри цикла проверяет, родился ли персонаж после 1990 года. Если это так, увеличивает значение Count и выводит информацию о персонаже, включая его семью, имя и дату рождения.
После завершения цикла выводит общее количество персонажей, родившихся после 1990 года.