Многомодульная программа с выделением подпрограмм

unit Matrix;
{объявим нашу матрицу}
type
  MyArr=array[1..100, 1..100]of integer;
{процедура задания матрицы}
procedure Writing(var a:MyArr; const str,col:integer);
var
  i,j:integer;
begin
  for i:=1 to str do
    for j:=1 to col do
      a[i,j]:=random(8)-4
end;
{процедура вывода матрицы}
procedure Print(a:MyArr; const str,col:integer; ch:char);
var
  i,j:integer;
begin
  writeln('Матрица ',ch,':');
  for i:=1 to str do
  begin
    for j:=1 to col do
      write(a[i,j]:2,' ');
    writeln
  end;
end;
{основная процедура нашей программы}
procedure Replace(var a:MyArr; const str,col:integer; dol:integer);
var
  i,j,max,min,maxtempi,maxtempj,mintempi,mintempj:integer;
begin
  {находим максимум и минимум}
  min:=100;
  max:=-100;
  for i:=1 to str do
    for j:=1 to col do
    begin
      if (a[i,j]<0)and(a[i,j]>max) then
      begin
        max:=a[i,j];
        maxtempi:=i;
        maxtempj:=j
      end;
      if (a[i,j]>0)and(a[i,j]<min) then
      begin
        min:=a[i,j];
        mintempi:=i;
        mintempj:=j
      end;
    end;
  writeln('a[',maxtempi,',',maxtempj,']=',max,' это максимум среди отрицательных');
  writeln('a[',mintempi,',',mintempj,']=',min,' это минимум среди положительных');
  {если по разность больше доли}
  if abs(min-max)<dol then
    for i:=1 to str do
      for j:=1 to col do
        if a[i,j]<0 then
          a[i,j]:=abs(a[i,j])
end;
end.

uses
  Matrix;
const
  str=4;{количество строк}
  col=4;{количество столбцов}
var
  a:MyArr;
  change:integer;
begin
  Writing(a,str,col);
  Print(a,str,col,'A');
  writeln('Задайте значение...');
  readln(change);
  Replace(a,str,col,change);
  Print(a,str,col,'A');
end.