Матрица, Найти минимальный по модулю элемент матрицы и умножить на его значение Опции

[minoru]

Пожалуйста помогите с задачей для курсовой работы :
Дана прямоугольная матрица Ci,j размером . Найти минимальный по модулю элемент матрицы и умножить на его значение все элементы матрицы. Вывести полученную матрицу на печать.

[minoru]

Вот может кому пригодится

{
        #5.pas
        
        Copyright 2008 Roman <minoru@minoru-desktop>
        
        This program is free software; you can redistribute it and/or modify
        it under the terms of the GNU General Public License as published by
        the Free Software Foundation; either version 2 of the License, or
        (at your option) any later version.
        
        This program is distributed in the hope that it will be useful,
        but WITHOUT ANY WARRANTY; without even the implied warranty of
        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        GNU General Public License for more details.
        
        You should have received a copy of the GNU General Public License
        along with this program; if not, write to the Free Software
        Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
        MA 02110-1301, USA.
}


program Work_5;

uses crt;

const maxM=100;
        maxN=100;

type TArray = array [1..maxN, 1..maxM] of real;

var   m, n: byte;
      Ar: TArray;
      min: real;


procedure InputMx(Var Ar: TArray; var n, m: byte);
var i, j: byte;
begin
clrscr;
    write ('n='); Readln(n);
    write ('m='); readln (m);
    for i:=1 to n do
      for j:=1 to m do
       begin
        write('a[',i,',',j,']=');
	readln(Ar[i,j])
       end
end; 

procedure FindMinAbs(Ar: TArray; n, m: byte; var min: real);
var i, j, minm, minn: byte;
begin
  minn:=1;
  minm:=1;
  for i:=1 to n do
    for j:=1 to m do
     if abs(Ar[i,j])<abs(Ar[minn,minm])
     then
      begin
       minn:=i;
       minm:=j
      end;
  min:=Ar[minn,minm]
end;

procedure MultMxByMinAbs(var Ar: TArray; n, m: byte; min: real);
var i, j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      Ar[i,j]:=Ar[i,j]*min
end;

procedure ShowMx(Ar: TArray; n, m: byte);
var i, j: byte;
begin
  clrscr;
  for i:=1 to n do
    for j:=1 to m do
      writeln('a[',i,',',j,']=',Ar[i,j]8)
end;

BEGIN	
  InputMx(Ar,n, m);
  FindMinAbs(Ar, n, m, min);
  MultMxByMinAbs(Ar, n, m, min);
  ShowMx(Ar, n, m)
END.