Составить процедуру для замены всех отрицательных элементов их модулями, и подсчитать количество таких замен

{ Разработать программу , предварительно создав процедуру.
Составить процедуру для зхамены всех отрицательных элементов их модулями
и подсчитать количество таких замен.
Применить эту процедуру для двух массивов А и B. Если окажется , что
число таких замен в массиве A больше 4, распечатать массив A c
замененными элементами. иначе B}
const
  n=5;
type
  Mas=array[1..n] of Integer;
var
  A,B : Mas;
  k1,k2,k,i:Integer;
 
procedure Zamena(var M:Mas; var k:integer);
var
  i:integer;
begin
  k:=0;
  for i:=1 to n do
    if M[i]<0 then
      begin
        M[i]:=abs(m[i]) ;
        inc(k);
      end;
end;
 
begin
  k:=0;
  for i:=1 to n do
    begin
      Write('A[',i,'] = ');
      ReadLn(A[i]);
    end;
  Zamena(A,k1);
  for i:=1 to 5 do
    begin
      Write('B[',i,'] = ');
      ReadLn(B[i]);
    end;
  Zamena(B,k2);
  if (k1>4) then
    begin
      writeln('Array A: ');
      for i:=1 to n do
        write(a[i]:4);
    end
  else
    begin
      writeln('Array B: ');
      for i:=1 to n do
        write(B[i]:4);
    end;
  ReadLn;
end.