Найти сумму или разность двух матриц в зависимости от значения параметра flag

uses crt,Minimal;
const
  n=4;{ïîðÿäîê ìàòðèöû}
var
  a:array [1..n,1..n] of integer;
  i,j,min:integer;
begin
  Writing(a);
  {îïðåäåëÿåì íàèáîëüøèé èç îòðèöàòåëüíûõ}
  min:=FindMin(a);
  Print(a);
  writeln('Â äàííîé ìàòðèöå íàèáîëüøèé èç îòðèöàòåëüíûõ ýòî ',min)
end.

unit Minimal;
const
  n=4;
type
  MyArray=array [1..n,1..n] of integer;
var
  a:array [1..n,1..n] of integer;
  i,j,min:integer;
{ïðîöåäóðà çàïîëíåíèÿ è âûâîäà ìàòðèöû}
procedure Writing(var a:MyArray);
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
end;
{ïðîöåäóðà âûâîäà ìàòðèöû}
procedure Print(const a:MyArray);
begin
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln
  end;
  writeln('------------------')
end;
{ïðîöåäóðà íàõîæäåíèÿ íàèáîëüøåãî èç ìèíèìàëüíûõ}
function FindMin(const a:MyArray):integer;
var
  min:integer;
begin
  min:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if (a[i,j]<0) and (min=0) then
        min:=a[i,j];
      if (a[i,j]>min) and (a[i,j]<0) then
        min:=a[i,j]
    end;
  Result:=min
end;
end.

{процедура нахождения наибольшего из минимальных}
function FindMin(const a:MyArray):integer;
var
  min:integer;
begin
  min:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if (a[i,j]<0) and (min=0) then
        min:=a[i,j];
      if (a[i,j]>min) and (a[i,j]<0) then
        min:=a[i,j]
    end;
  Result:=min
end;
end.