Подсчитать количество ненулевых элементов, лежащих выше главной диагонали матрицы

const n=3;
var
k,i,j:integer; a:array[1..n,1..n] of real;
begin
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
k:=0;
for i:=1 to n do
begin
if a[i,i]=99 then k:=1;
if k=1 then begin for j:=i to n do begin
if a[i,j] <> 0 then inc(k)
end;
end;
end;
writeln('k=',k);
end.

uses
  crt;
const
  n=5;
var
  kpos,k,i,j:integer;
  a:array[1..n,1..n] of real;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      readln(a[i,j]);
//      a[i,j]:=random(100)-50;
 
//  a[3,3]:=99;  // Отладка
 
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if i<=j then
            textcolor(green)
          else
            textcolor(white);
          write(a[i,j]:8:2);
        end;
      writeln;
    end;
 
 
  kpos:=0;
  for i:=1 to n do
    begin
      if a[i,i]=99 then
        begin
          kpos:=i;
        end;
    end;
  if kpos=0 then
    writeln('На диагонали отсутствует число 99.')
  else
    begin
      k:=0;
      For i:=kpos To n Do
        For j:=i To n Do
          if a[i,j] <> 0 then
            inc(k);
      writeln('k=',k);
    end;
  readln;
end.