Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю - Pascal

Формулировка задачи:

Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю. Ввод, вывод матрицы и вычисление суммы оформить в виде отдельных процедур. Программа не работает, пожалуйста помогите найти ошибку, очень срочно

Program prog;
Uses crt;
 Type
  MatrixType = Array[1..50,1..50] of Real;
 Var
  A, B : MatrixType;
  Sum2, Sum3 : Real;
 Procedure Vvod(Var D:MatrixType; n, m : integer; Ch : Char);  {Процедура ввода матрицы}
  Var
   i, j : integer;
  Begin
   for i:=1 to n do
   for j:=1 to m do
    begin
     Write(Ch,'[', i, ',', j, '] = ');
     ReadLn(D[i,j]);
    end;
 End;
 Procedure NadGlav(Var D:MatrixType; n, m : integer; Ch : char); {Процедура суммирования эл-тов матрицы над главной диагональю}
  Var
   i, j, a, b : integer;
   Sum1 : real;
  Begin
   Sum1:=0;
    for i:=1 to m do
    for j:=1 to n do
    while j>i do
      Sum1:= Sum1 + D[i,j];
      WriteLn('Сумма эл-тов матрицы', Ch,' над главной диагональю:', Sum1:4:5);
  End;
  Begin
   Write('Введите матрицу А(4,3)');
   Vvod(A, 4, 3, 'A');
   Write('Введите матрицу B(3,5)');
   Vvod(B, 3, 5, 'B');
   NadGlav(A, 4, 3, 'A');
   WriteLn;
  End.

Решение задачи: «Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю»

Листинг программы

    if j>i then
      Sum1:= Sum1 + D[i,j];

Объяснение кода листинга программы

Задаются матрицы А(4,3) и В(3,5).
Создаются переменные Sum1 и Sum2 для хранения суммы элементов над главной диагональю матрицы А и В соответственно.
Происходит вычисление суммы элементов над главной диагональю матрицы А.
Для каждой пары i и j, если j больше i, то элемент D[i,j] прибавляется к переменной Sum1.
Выводится значение переменной Sum1, которое является суммой элементов над главной диагональю матрицы А.