замена элементов в массиве

[mishammm]

Задача такова: Нужно заменить в строке минимальный элемент на максимальный в масиве, вот что я пробывал:

var 
     a:array[1..6,1..8] of real;
j,i:integer;
temp,max,min:real;
max_i,min_i,min_j,max_j:integer;
begin
writeln( 'massiv: ');
for i:=1 to 6 do
For j:=1 to 8 do 
begin
Readln(a[i,j]);
end;
For i:=1 to 6 do
For j:=1 to 8 do
begin
if a[i,j]>max then
begin
max:=a[i,j];
max_i:=i;
max_j:=j;
end;
end;
for i:=1 to 6 do
For j:=1 to 8 do
begin
if a[i,j]<min then
begin
min:=a[i,j];
min_i:=i;
min_j:=j;
end;
end;
begin
temp:=a[min_i,min_j];
a[min_i,min_j]:=a[max_i,max_j];
a[max_i,max_j]:=temp;
end;
 writeln('visortovano:');
  for i := 1 to 6 do
  begin
    for j := 1 to 8 do
      write(a[i, j]:4:0, ' ');
    writeln;
  end;
  readln;
end.

но не меняет элементы местами. Помогите пожалуйста исправить программу

[mishammm]

уже разобрася, код работает как надо почти идентичный тому что я кинул, немного просто дописал красивый ввод и вывод!