Матрицв

const
  n=3;
  m=4;
var
  a: array[1..n,1..m] of integer;
  i,j,imax,jmax,t: integer;
begin
  imax:=1; jmax:=1;
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      if a[i,j]>a[imax,jmax] then
      begin
        imax:=i;
        jmax:=j;
      end;
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
    t:=a[i,1];
    a[i,1]:=a[i,jmax];
    a[i,jmax]:=t;
  end;
  for j:=1 to m do
  begin
    t:=a[1,j];
    a[1,j]:=a[imax,j];
    a[imax,j]:=t;
  end;
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.