Найти номера строк матрицы А(10,10), в которых на нечетной позициях стоят нули - Pascal

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

Люди помогите пожалуйста! нужно задачу решить на зачет! Найти номера строк матрицы А(10,10), в которой на нечетных позициях стоят нули. Массив заполнять случайными числами из диапазона [-29;89]. Заранее спасибо!

Решение задачи: «Найти номера строк матрицы А(10,10), в которых на нечетной позициях стоят нули»

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

uses crt;
const n=10;
var
   a: array[1..n,1..n] of integer;
   fl: boolean;
begin
   clrscr;
   randomize;
   for i:=1 to n do
      begin
         for j:=1 to n do
            begin
               a[i,j]:=random(119)-29;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   for i:=1 to n do
      begin
         fl:=true;
         for j:=1 to n do
            if odd(j) and a[i,j]<>0 then fl:=false;
         if fl then write(i,' ');
      end;
   readkey
end.

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

Объявлены переменные: — n - размерность матрицы (10х10); — a - матрица (10х10) для хранения чисел; — fl - флажок для проверки нечетных строк.
Заполнение матрицы a случайными числами от 0 до 118 (random(119)-29).
Вывод на экран заполненной матрицы a.
Проверка каждой строки матрицы a на условие: если на нечетной позиции стоит ноль, то флажок fl устанавливается в false.
Если все строки удовлетворяют условию (fl=true), то выводится номер соответствующей строки.
Ввод с клавиатуры ключа для выхода из программы (readkey).