Двумерные массивы

[1Dima]

Помогите доделать скрипт ума не приложу что должно быть дальше!(((

Задание:
Максимальный елемент (самый большой)квадратной матрицы ,поменять местами с самым малым для елементов главной диагонали.

вот скрипт:
const n=5;m=5;
var a:array[1..n,1..m] of real;
i,j:integer;
max_elem,min_elem,z,p:real;
begin
randomize;
writeln ('Nash masuv: ');
writeln;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
writeln('a[',i,', ,',j,']=',a[i,j]:5:0);
end;
min_elem:=a[1,1];
for i:=1 to n do
for i=j to i do
if a[i,j]< min_elem then
begin
min_elem:=a[i,j];
end;

[1Dima]

Помогите плиз!!

[Lem-ON]

я делал тоже самое тока с integer:
Переменные

var
  Form1: TForm1;
  A: array [1..5, 1..5] of integer;
  max, min, i,j,mini,minj, maxi,maxj,p: integer;

Минимум \ Максимум

min:=a[1,1];
max:=a[1,1];
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
      if a[i,j]<min then
        begin
          min:=a[i,j];
          mini:=i;
          minj:=j;
        end;
      if a[i,j]>max then
        begin
          max:=a[i,j];
          maxi:=i;
          maxj:=j;
        end;
      end;
  end;

Перестановка

p:=a[maxi,maxj];
  A[maxi,maxj]:= a[mini,minj];
  a[mini,minj]:=  p;

А там уже выводишь куда те надо