Вывести нечетные строки матрицы на печать - Turbo Pascal

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

program sss;
uses CRT;
const N=5; M=5;
Type mass22=array [1..N,1..M] of integer;
var a:mass22; i,j:integer;
Begin
 ClrScr;
 Randomize;
 For i:=1 to N do
  For j:=1 to M do
   a[i,j]:=random (10)+1;
 For i:=1 to N do
  Begin
   For j:=1 to M do
     write(a[i,j]:4);
    writeln;
   end;
 
 readkey;
end.

__________________________________________________________________ как сделать чтоб он еще выводил нечетные строки и чётные столбцы ??? __________________________________________________________________

Решение задачи: «Вывести нечетные строки матрицы на печать»

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

writeln;
i:=1;
Repeat {Нечетные строки}
  For j:=1 to M do write(a[i,j]:4);
  writeln;
  i:=i+2;
Until i>N;
 
j:=2;
Repeat {Четные столбцы}
  For i:=1 to N do write(a[i,j]:4);
  writeln;
  j:=j+2;
Until j>M;

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

Строка кода writeln; выводит символ новой строки, перенося текст на следующую строку.
Переменная i инициализируется значением 1.
Цикл Repeat выполняется до тех пор, пока значение переменной i меньше или равно N.
В каждой итерации цикла For переменная j инициализируется значением 1.
В каждой итерации цикла For выводится значение элемента матрицы a[i,j] с помощью функции write(a[i,j]:4), где :4 указывает, что число должно быть представлено в формате с четырьмя знаками после запятой. Значение выводится на новую строку с помощью writeln;.
После окончания цикла For переменная i инкрементируется на 2, становясь равной 3.
Цикл Repeat продолжается до тех пор, пока значение переменной i меньше или равно N.
Переменная j инкрементируется на 2, становясь равной 3.
Цикл For повторяется до тех пор, пока значение переменной j больше или равно M.
После окончания цикла For переменная j становится равной 4.
Цикл Repeat продолжается до тех пор, пока значение переменной i меньше или равно N.
Переменная i инкрементируется на 2, становясь равной 5.
И так далее, пока не будут выполнены все итерации циклов.
В результате выполнения кода выводятся нечетные строки матрицы на печать.