Транспонировать квадратную матрицу порядка N, вывести начальную и транспонированную матрицу. Найти сумму элементов расположенных на главной диагонали и ниже — Pascal(Паскаль)

program summa;
 var
 a:array[1..10,1..10] of integer;
 i,j,m,sum:integer;
 
 
 begin
 randomize;
 writeln('введите размерность матрицы');
 readln(m);
 for i:=1 to m do begin
  for j:=1 to m do
   a[i,j]:=random(10);
   end;
  writeln('исходная матрица');
  for i:=1 to m do begin
   for j:=1 to m do
    write(a[i,j],' ');
    writeln;
    end;
    sum:=0;
  for i:=1 to m do begin
   for j:=1 to m do
    if (i>j) or (i=j) then
    sum:=sum+a[i,j];
    end;
    writeln('Сумма',' ','=','',sum);
    readln;
    end.