составить блок схему к коду паскаль

[mishammm]

Нужно было поменять минимальный елемент двумерного массива на максимальный! прошу помогите з блок схемой!

program laba8_3;
var a:array[1..6,1..8] of real;
i,j:integer;
min_i,max_i:integer;
max,min,temp:real;
begin
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random*10;
write(a[i,j]:4:0);
max:=a[i,j];
min:=a[i,j];
end;
writeln;
end;
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
if a[i,j]<min then 
begin
min:=a[i,j];
min_i:=i;
end;
if a[i,j]>max then
begin
max:=a[i,j];
max_i:=i;
end;
end;
end;
for j:=1 to 8 do
begin

temp:=a[min_i,j];
a[min_i,j]:=a[max_i,j];
a[max_i,j]:=temp;
end;
 writeln('Good:');
  for i := 1 to 6 do
  begin
    for j := 1 to 8 do
      write(a[i, j]:4:0, ' ');
    writeln;
  end;
  readln;
end.

[Vanta11a]

google (слово кликабельно)