Минимальный элемент матрицы умножить на максимальный - Turbo Pascal

Формулировка задачи:

Программа выполняет ввод вещественных элементов массива массива A(3,3)по строкам,контрольный вывод массива на дисплей в виде матрицы,определяет максимальный и минимальный элементы массива.Минимальный элемент умножается на аксимальный,максимальный делится на минимальный,после чего на дисплей выводится измененная матрица.

Решение задачи: «Минимальный элемент матрицы умножить на максимальный»

textual
                            Листинг программы 
                        

                            uses crt;
const n=3;
var a:array[1..n,1..n] of real;
    i,j,imn,jmn,imx,jmx:byte;
    mn,mx:real;
begin
clrscr;
writeln('Введите ',n*n,' элементов вещественной матрицы');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица');
mn:=a[1,1];
mx:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:6:2);
    if a[i,j]<mn then
     begin
      mn:=a[i,j];
      imn:=i;
      jmn:=j;
     end
    else if a[i,j]>mx then
     begin
      mx:=a[i,j];
      imx:=i;
      jmx:=j;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент a[',imn,',',jmn,']=',mn:0:2);
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:0:2);
a[imn,jmn]:=mn*mx;
a[imx,jmx]:=mx/mn;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
readln
end.
                        