Создать функцию, определяющую сумму элементов строк матрицы, если на главной диагонали матрицы располагается отрицательный элемент

Type Matr=array[1..20,1..20] of integer;
Var A,B:matr;
    i,j,n,m,k,l,s1,s2:integer;
Function S(A:matr;n,m:integer):integer;
Var i,j,s1:integer;
Begin
    s1:=0;
    For i:=1 to n do
     if (i<=m)and(A[i,i]<0) then
      For j:=1 to m do
        s1:=s1+A[i,j];
    S:=s1;
End;
Begin
    write('Введите n,m(через пробел): ');readln(n,m);
    write('Введите k,l(через пробел): ');readln(k,l);
    For i:=1 to n do
     For j:=1 to m do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    For i:=1 to k do
     For j:=1 to l do
     Begin
       write('B[',i,',',j,'] = ');
       readln(B[i,j]);
     End;
    writeln('Матрица A');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j],' ');
      writeln;
    End;
    writeln('Матрица B');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(B[i,j],' ');
      writeln;
    End;
    s1:=S(A,n,m);s2:=S(B,k,l);
    writeln('Сумма матрицы A = ',S(A,n,m));
    writeln('Сумма матрицы B = ',S(B,k,l));
    if s1>s2 then writeln('Сумма матрица A больше')
     else if s1<s2 then writeln('Сумма матрица B больше')
      else writeln('Суммы равны');
    readln;
End.