Переписать программу без использования boolean - Pascal

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

Можно ли сделать без boolean

Решение задачи: «Переписать программу без использования boolean»

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

uses crt;
var a : array[1..100,1..100]of integer;
    N, M, i, j, k : integer;
begin
clrscr;
randomize;
write('Размерность A(N,M) -> ');
readln(N, M);
writeln('Массив A');
for i := 1 to N do
 begin
  for j := 1 to M do
   begin
    a[i, j] := random(2);
    write(a[i,j]:3);
   end;
  writeln;
 end;
k := 0;
for i:=1 to n do
 begin
  j:=1;
  while(j<=m)and(a[i,j]<>0) do inc(j);
  if j<=m then inc(k);
 end;
writeln('Кол-во строк с нулевыми элементами - ',k);
readln;
end.

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

В первой строке кода используется директива uses, которая подключает необходимые библиотеки.
Переменная a объявляется как массив целых чисел размером от 1 до 100 в каждой из 100 строк.
Переменные N, M, i, j и k объявляются как целые числа.
Строка clrscr; очищает экран.
Строка randomize; инициализирует генератор случайных чисел.
Строка write('Размерность A(N,M) -> '); выводит сообщение о размерности массива A.
Строки for i := 1 to N do и for j := 1 to M do инициализируют два вложенных цикла, которые будут выполняться от 1 до N и от 1 до M соответственно.
Внутри первого цикла, в каждой итерации второго цикла, переменная a[i, j] присваивается случайное число от 0 до 1, и это значение выводится на экран.
Строка writeln('Массив A'); выводит сообщение Массив A.
Строки for i := 1 to N do и for j := 1 to M do завершаются, и цикл while(j<=m)and(a[i,j]<>0) начинается. Этот цикл продолжается, пока j меньше или равно m и a[i, j] не равно нулю.
Если условие цикла выполняется, то переменная j увеличивается на 1.
Если условие цикла выполняется, то переменная k также увеличивается на 1.
Строка writeln('Кол-во строк с нулевыми элементами - ',k); выводит сообщение Количество строк с нулевыми элементами - и значение переменной k.
Код завершается вызовом функции readln(), который считывает ввод пользователя.