Описать запись с именем Zodiac с полями: фамилия, имя; знак Зодиака; день рождения - Turbo Pascal

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

1.Описать запись с именем Zodiac, содержащую следующие поля: Фамилия, имя; знак Зодиака; день рождения (массив из трёх чисел); 2.Написать программу, выполняющую следующие действия: Ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Zodiac; записи должны быть упорядочены по датам дней рождения; Вывод на экран информации о человеке, чья фамилия введена с клавиатуры; если таких нет, вывести на экран соответствующее сообщение.

Решение задачи: «Описать запись с именем Zodiac с полями: фамилия, имя; знак Зодиака; день рождения»

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

type
  Zodiac = record
    Famil, Imya: string;
    Znak: string; {либо перечисляемый тип}
    Rojd: array[1..3] of Integer;
  end;
const
  n=10; {кол-во элементов}
var
  Mass: array[1..n] of Zodiac;
begin
  {тут все остальное}
  readln;
end.

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

В данном коде описывается тип данных Zodiac, который содержит поля для фамилии, имени, знака Зодиака и дня рождения. Также определяется константа n, которая указывает на количество элементов в массиве Mass. В переменной Mass хранятся записи с именами Zodiac. После этого идет блок readln, который считывает данные с консоли.