Помогите проверить программу на паскале)
Вот условие
Если в заданной матрице A(N, N) есть хотя бы один элемент, больший ста, то элементы главной диагонали замените нулями.
program p7;
Uses crt;
cоnst n=6;
type quatr=array[1..n,1..n]of integer;
var
i,j,k:byte;
flag,false:boolean;
A:quatr;
Begin
randomize;
ClrScr;
writeln('Matrica A:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(110);
write(a[i,j]:4);
end;
writeln;
end;
flag:=false;
for i:=1 to n do
for j:=1 to n do
if A[i,j]>100 then begin
flag:=true;
break;
end;
writeln ('flag=',flag);
if flag then writeln ('Tschiclo > 100')
else writeln ('Net');
if flag then
for i:=1 to n do
for i:=1 to n do
if i=j then A[i,j]:=0;
writeln('Matrica A:');
for i:=1 to n do
begin
for j:=1 to n do
write (A[i,j]:4);
writeln;
end;
readln;
end.