Сформировать новую матрицу B, изъяв из матрицы A строку, в которой расположен максимальный элемент

program 1;
const n=4; m=4;
var A:array[1..n,1..m] of real;
      max,imax:real;
      i,j:integer;
var B:array[1..n,1..m] of real; 
begin
  randomize;
    for i:=1 to n do
          begin
          for j:=1 to m do
              begin
              a[i,j]:=-20+random*(40);
              end;
          end;
      writeln('Матрица А :');  
      for i:=1 to n do
          begin
            for j:=1 to m do
              write(a[i,j]:8:2,'   ');
            writeln;
          end;
  writeln('Главная диагональ :');
  max:=a[1,1];
  imax:=1;
  for i:=1 to n do
     begin
      write(a[i,i]:8:2);
      if a[i,i]>max then
        begin
          max:=a[i,i];
          imax:=i
        end;
     end;
  writeln;
  writeln('Максимальный элемент: ',max:0:2,', обнаружен в ',imax,'-й строке');
  writeln;
end.

var a,b:array[1..4,1..4] of real;
    max,imax:real;
    n,m,i,j:integer;
begin
randomize;
n:=4;
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-20+random*(40);
    write(a[i,j]:8:2);
    if(i=1)and(j=1) then
     begin
      max:=a[1,1];
      imax:=i;
     end
    else if (j=i)and(a[i,j]>max) then
     begin
      max:=a[i,j];
      imax:=i;
     end;
   end;
  writeln;
 end;
writeln('Максимальный элемент главной диагонали=',max:0:2,', обнаружен в строке ',imax);
writeln('Матрица В');
m:=0;
for i:=1 to n do
if i<>imax then
 begin
  m:=m+1;
  for j:=1 to n do
  b[m,j]:=a[i,j];
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(b[i,j]:8:2);
  writeln;
 end;
end.