Найти количество элементов, расположенных выше главной диагонали матрицы - Turbo Pascal

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

Нужна помощь Задан двухмерный массив целых чисел А размером М на N. Найти количество элементов, расположенных выше главной диагонали.

Решение задачи: «Найти количество элементов, расположенных выше главной диагонали матрицы»

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

program mas;
uses crt;
var A: array [1..100,1..100] of integer;
    i,j,k,n,m:integer;
 
begin
    clrscr;
    write('vvedite  n = ');
    readln(n);
    write('vvedite  m = ');
    readln(m);
    writeln('Введите элементы массива: ');
     for i := 1 to n do
         for j := 1 to m do
         begin
         Write('mas[', i, ']');
            Write('[', j, ']');
             readln(A[i,j]);
         end;
    writeln('matrica');
    for i:=1 to n do begin
    for j:=1  to m do
    write(' ',A[i,j],' ');
    writeln;
     end;
 
     for i := 1 to n do
         begin
           for j := 1 to m do
             begin
              if(i<j) then
              k:=k+1;
             end;
         end;
  writeln('количество элементов выше главной диагонали = ',k);
     readln;
end.

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

В данном коде на языке Turbo Pascal создается программа mas. Программа запрашивает у пользователя два числа: n и m, которые представляют собой размеры матрицы. Затем программа запрашивает у пользователя элементы матрицы и сохраняет их в массив A. После этого программа выводит на экран саму матрицу и подсчитывает количество элементов, расположенных выше главной диагонали. Результат подсчета выводится на экран.