В прямоугольном массиве с помощью процедуры убрать все строки, у которых оба конца – с четными значениями - Pascal

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

Программа В прямоугольном массиве с по-мощью процедуры убрать все строки, у которых оба конца – с четными значениями. Исходные данные из файла читать, начиная с 44 числа. Процедуры (Функции) 1) Печатать двумерный массив до и после корректировки с помощью процедуры. 2) Построить процедуру, кото-рая удаляет (со сдвигом вверх всех нижележащих строк) зака-занную строку передаваемого ей прямоугольного массива M<= 10 N<= 12 Файл с данными DATI.TXT

Решение задачи: «В прямоугольном массиве с помощью процедуры убрать все строки, у которых оба конца – с четными значениями»

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

uses Dos;
var y, m, d, wd: Word;
begin
  GetDate(y,m,d,wd);
  if d<44 then WriteLn('Зайдите позже, дней через ',44-d)
  else begin
    ...

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

Подключается библиотека Dos.
Объявляются переменные y, m, d, wd типа Word (для года, месяца, дня и недели соответственно).
Вызывается процедура GetDate, которая записывает год, месяц, день и день недели в указанные переменные.
Проверяется значение переменной d. Если оно меньше 44, то выводится сообщение Зайдите позже, дней через, где 44 - это значение переменной d.
Если условие из предыдущего пункта не выполняется, то начинается блок else, но его содержимое не указано.