Вычислить сумму элементов матрицы, расположенных над главной диагональю

program Project1;
 
const
  MaxI = 20; //Наибольший индекс.
type
  TArr = array[1..MaxI, 1..MaxI] of Integer;
 
var
  PArr : ^TArr;
  i, j, Sum, M : Integer;
  S : String;
begin
  repeat
    Write('Задайте размер массива: ');
    Readln(M);
    if not (M in [1..MaxI]) then begin
      Writeln('Размер массива задан неверно. Действие отменено.');
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
      Continue;
    end;
    //Выделение памяти для массива.
    GetMem(PArr, M * M * SizeOf(Integer));
 
    //Заполние массива случайными числами и распечатка.
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to M do begin
      for j := 1 to M do begin
        PArr^[i, j] := Random(10); //0..9.
        if j > 1 then Write(', ');
        Write(PArr^[i, j]);
      end;
      Writeln;
    end;
 
    //Решение задачи. Для элементов, расположенных над главной диагональю,
    //выполняется условие: i < j.
    Sum := 0;
    for i := 1 to M do
    for j := i + 1 to M do Sum := Sum + PArr^[i, j];
 
    //Освобождаем память, взятую для массива.
    FreeMem(PArr);
 
    //Ответ.
    Writeln('Сумма элементов, расположенных над главной диагональю: ', Sum);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.