Вычислить сумму элементов над побочной диагональю

uses crt;
const nmax=3;
type matr=array [1..nmax,1..nmax] of integer;
var c,k: matr;
    sum,kol,n,m: integer;
procedure wwod (ri,rj: byte; var z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(9);
end;
procedure wywod (c: char; ri,rj: byte; z: matr);
var i,j: byte;
begin
writeln ('Матрица ',c);
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:4);
    writeln;
    end;
end;
procedure deistvie (ri,rj: byte; z: matr; var s{,k}: integer);
var i,j: byte;
begin
s:=0;
for i:=1 to ri do
    for j:=1 to rj do
        if i+j<ri+1 then
           begin
           s:=s+z[i,j];
           end;
end;
begin
writeln('Количество строк в матрице');
readln(n);
writeln('Количество столбцов в матрице');
readln(m);
wwod (n,m,c);
wywod ('C',n,m,c);
deistvie (n,m,c,sum);
writeln('Сумма элементов над побочной диагональю равна',sum:4);
end.