Помогите с созданием программы:

[Wander]

Дана (построчно) вещественная матрица размером 7 x 4. Переставляя ее строки и столбцы, следует добиться того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу.

[RSLoader]

var
  a:array[1..7,1..4]of real;
  i,j,maxi,maxj:integer;
  t:real;
begin
  writeln('Vvod matrici: ');
  for i:=1 to 7 do
  for j:=1 to 4 do
  begin
    write('Vvedite ',j,' element ',i,' stroki: ');
    readln(a[i,j]);
  end;
  writeln('Vivod matrici');
  for i:=1 to 7 do
  begin
    for j:=1 to 4 do write(a[i,j]:6:2,' ');
    writeln;
  end;
  {Poisk nomera stolbca i nomera stroki naibolshego elementa}
  maxi:=1;
  maxj:=1;
  for i:=1 to 7 do
  for j:=1 to 4 do
  if a[i,j]>a[maxi,maxj] then
  begin
    maxi:=i;
    maxj:=j;
  end;
  {Perestanovka 1 stroki i stroki s max elementom}
  for j:=1 to 7 do
  begin
    t:=a[1,j];
    a[1,j]:=a[maxi,j];
    a[maxi,j]:=t;
  end;
  writeln('Vivod matrici');
  for i:=1 to 7 do
  begin
    for j:=1 to 4 do write(a[i,j]:6:2,' ');
    writeln;
  end;
  {Perestanovka 1 stolbca i stolbca s max elementom}
  for i:=1 to 4 do
  begin
    t:=a[i,1];
    a[i,1]:=a[i,maxj];
    a[i,maxj]:=t;
  end;
  writeln('Vivod matrici');
  for i:=1 to 7 do
  begin
    for j:=1 to 4 do write(a[i,j]:6:2,' ');
    writeln;
  end;
  readln;
end.

[Wander]

RSLoader vbmenu_register("postmenu_16927", true); спасибо !