Дан массив X(N,M). Из исходного массива получить массив, у которого элементы левее главной диагонали на наибольшей по модулю элемент диагонали

program z;
var i,j,max,n,m,l:integer;
a,b:array [1..10,1..10] of integer;
d:array [1..10] of integer;
begin
     writeln('Ввод кол-ва строк матрицы');
     readln(n);
     writeln('Ввод кол-ва столбцов матрицы');
     readln(m);
     writeln('Ввод элементов матрицы');
     for i:=1 to n do
         for j:=1 to m do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     writeln('Исходная матрица');
     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
         for j:=1 to m do
             if i=j
                then
                    d[i]:=a[i,j];
     writeln('Элементы главной диагонали');
     write('d=( ');
     for i:=1 to n do
         write(d[i],' ');
     write(')');
     writeln;
     max:=d[1];
     for i:=1 to n do
         if d[i]>max
            then
                max:=d[i];
     writeln('Max элемент главной диагонали - ',max);
     for i:=1 to n do
         for j:=1 to n do
             b[i,j]:=a[i,j];
     l:=1;
     for i:=2 to n do
         for j:=1 to l do
             begin
                  b[i,j]:=max;
                  l:=l+1;
             end;
     writeln('Результат');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(b[i,j],' ');
              writeln;
         end;
end.