Процедуры. Матрица. В строках с отрицательным элементом на главной диагонали найти сумму всех элементов

uses crt;
var Matrix:array[1..20,1..20]of integer;
    s,n,i,j,max:integer;
begin
clrscr;
write('Kol-vo strok n= ');
readln(n);
writeln('Vvedite ',n*n,' elementy matricy:');
 
for i:=1 to n do
for j:=1 to n do
read(Matrix[i,j]);
readln;
clrscr;
 
Writeln('Matrica:');
for i:=1 to n do
    begin
      for j:=1 to n do
      write(Matrix[i,j]:3);
      writeln;
      end;
         for i:=1 to n do
         if Matrix[i,i]<0 then
    begin
      s:=0;
        for j:=1 to n do
          s:=s+Matrix[i,j];
            writeln(s);
            end;
              for i:=1 to n do
         if Matrix[i,i]<0 then
            
            begin
             max:=Matrix[i,i];
             if Matrix [i,j]>max then
             max:=matrix [i,j];
             writeln ('max=', max);
             readln;
             end;
 
 
readln;
end.

uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var Matrix:matr;
    n:byte;
 
procedure Vvod (var r: byte; var z: matr);
var i,j: byte;
begin
clrscr;
write('Kol-vo strok, ne bolee ',nmax,', n= ');
readln(r);
writeln('Vvedite ',r*r,' elementy matricy:');
for i:=1 to r do
    for j:=1 to r do
        read(z[i,j]);
end;
 
procedure Vyvod (r: byte; z: matr);
var i,j: byte;
begin
clrscr;
writeln('Matrica:');
for i:=1 to r do
    begin
    for j:=1 to r do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
function SumS (ns: byte; r: byte; z: matr): integer;
var j: byte; s: integer;
begin
s:=0;
for j:=1 to r do
    s:=s+z[ns,j];
SumS:=s;
end;
 
function Max (ns: byte; r: byte; z: matr): integer;
var j,jmax: byte;
begin
jmax:=1;
for j:=2 to r do
    if z[ns,j]>z[ns,jmax] then jmax:=j;
Max:=z[ns,jmax];
end;
 
procedure Proverka (r: byte; z: matr);
var i: byte;
begin
for i:=1 to r do
    if z[i,i]<0 then
       writeln(i,' stroka: summa=',SumS (i,r,z),', max.element=',Max (i,r,z));
end;
 
begin
Vvod (n,matrix);
Vyvod (n,matrix);
Proverka (n,matrix);
readln;
end.