Составить и отладить программу обработки матрицы размерности n*n. Выполнить программу для n = 4. Подсчитать сумму элементов матрицы стоящих над главной диагональю в Pascal

Program Podschet;
var  i, j ,ans: integer;  a: array [1..100,1..100] of integer;
begin  writeln(Введите размерность матрицы);  readln(n);  writeln(Введите матрицу , n, х, n);  for i := 1 to n do    for j := 1 to n do      read(a[i, j]);
  for i := 1 to n do    for j := 1 to n do      if (j = i + 1) then        ans := ans + a[i, j];

  writeln(Cумма элементов над главной диагональю = ans);end.