Задача по матрице (Delphi)

const n = 5;
a:array[1..n,1..n]of integer;
z:integer;
ne,su:integer;
b:boolean;
begin
//ВВоди матрицу
for i:=1 to n do
   for j:=1 to n do
       read(a[i,j]);
read(z);
su:=0;ne:=0;
for i:=2 to n do
   for j:=1 to i-1 do
        begin
        if a[i,j]=1 then
           inc(ne);
        end;
for i:=1 to n do
   for j:=i+1 to n do
        begin
        su:=su+a[i,j];
        end;
if su=ne then
   begin
   b:=false;
   for i:=1 to n do
       b:=b or (a[i,i]=z);
   if b then writeln('Да')
         else writeln('Нет')
   end
else
  writeln('Не равно!!!');
end.