Наличие нулей в матрице

Наличие нулей в матрице

Program nalichie_nylej_v_matrice;
const n=10; m=8;//описываем константы
var i,j:integer;//описываем переменные
var haszero:boolean;
var a:array[1..m,1..n] of integer;//описываем массив
label endfors;//описываем метки
begin//начало программы
 begin//начало двух циклов
  randomize;//оператор случайных чисел
  for i:=1 to m do//цикл строк
  for j:=1 to n do//цикл столбцов
  a[i,j]:=random(100)-50;//генерация случайеых чисел в массив 
 end;//конец двух циклов
 haszero:=false; //инициализация перед циклом (ОБЯЗАТЕЛЬНО!)
   for i:=1 to m do
   for j:=1 to n do
    if a[i,j]=0 then//условие нулей в массиве
    begin
     haszero:=true;
     goto endfors;//выход из цикла если нули есть
    end;
   endfors:writeln(haszero);//вывод ответа
end.