Помогите разобраться с программой

program p7;
Uses crt;
const 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.

Вот условие

7)Если в заданной матрице A(N, N) есть хотя бы один элемент, больший ста, то элементы главной диагонали замените нулями.