Вывести все весенние заказы предприятия бытового обслуживания - Pascal ABC

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

Сведения о заказах некоторого предприятия бытового обслуживания состоит из номера заказа, фамилии заказчика и даты (число, месяц, год) его исполнения. Вывести все весенние заказы.

Решение задачи: «Вывести все весенние заказы предприятия бытового обслуживания»

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

program pr;
const
  Csize = 100;
type
  orde = record
    number: integer;
    surname: string[50];
    chis: integer;
    month: integer;
    year: integer;
  end;
  arr = array [1..Csize] of orde;
 
var
  i, n: integer;
  a: arr;
 
begin
  writeln('Введите количетво заказов');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите номер заказа');
    readln(a[i].number);
    writeln('Введите фамилию  заказчика');
    readln(a[i].surname);
    writeln('Введите дату заказа (число);');
    readln(a[i].chis);
    writeln('Введите дату заказа (месяц);');
    readln(a[i].month);
    writeln('Введите дату заказа (год);');
    readln(a[i].year);
    writeln;
  end;
  writeln('Весенние заказы');
  for i := 1 to n do
    if (a[i].month = 03) or (a[i].month = 04) or  (a[i].month = 05) then
    begin
      writeln('Номер заказа: ',a[i].number,' Фамилия заказчика: ',a[i].surname,'. Дата заказа: ',a[i].chis,' ',a[i].month,' ',a[i].year);
    end;
end.

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

В программе объявлены константа Csize (размер массива), тип данных orde (структура заказа), массив arr (массив заказов), переменные i, n и a (переменные для цикла и хранения заказов).
Пользователю предлагается ввести количество заказов (n).
Для каждого введенного заказа (от 1 до n) выполняется цикл, в котором пользователю предлагается ввести данные о заказе: номер, фамилию заказчика, дату (число, месяц, год).
Если месяц заказа равен 03, 04 или 05, то выводится информация о заказе.
В конце программы выводится сообщение Весенние заказы и для каждого введенного заказа выводится информация о нем, если месяц равен 03, 04 или 05.