Составить подпрограмму (одномерный массив).

Program Mat_All;
Uses WinCrt;
Const n=8;
Type
  mas=array [1..n] of real;
Var
  AT,BP:mas;
  i,k:integer;
 
{Считаем кол-во замен}
Function S4et(suda:integer; New:Mas):integer;
Var i,k:integer;
  Begin
    k:=0;
    For i:=1 to suda do
    If (New[i]<0) Then inc(k);
    S4et:=k;
  End;
 
{Заменяем элементы на их модули}
Procedure Zamena (suda:integer; Var New:Mas);
Var i:integer;
  Begin
    For i:=1 to suda do
    If (New[i]<0)
     then New[i]:=abs(New[i]);
  End;
 
{Формируем массив}
Procedure FormArray(suda:integer; Var New:mas);
Var i:integer;
  Begin
   For i:=1 to suda do
    Begin
      Write ('Введите ', i,'-ый элемент: ');
      Readln (New[i]);
    End;
  End;
 
{Выводим на печать}
Procedure PrintArray(suda:integer; var New:mas);
Var i:integer;
  Begin
    For i:=1 to suda do
    Write (New[i]:6:1);
    Writeln;
  End;
 
Begin
  FormArray (n,AT);
  Writeln ('Массив АТ: ');
  PrintArray (n,AT);
  FormArray (n,BP);
  Writeln ('Массив BP: ');
  PrintArray (n,BP);
  k:=s4et(n,AT);
  if k>5 then
    Begin
      Writeln ('Кол-во замен >5. Массив AT:');
      Zamena (n,AT);
      PrintArray (n,AT);
    End
  else
    Begin
      Writeln ('Кол-во замен <5. Массив BP::');
      Zamena (n,BP);
      PrintArray (n,BP);
    End;
End.