Массив: Сформировать из элементов двух массивов два новых: один - из положительных, а второй - из отрицательных...

program PlusMinusArr;
const
  nmax = 100;   // Максимальное количество элементов всех используемых массивов.
 
type
  mass = array [1..nmax] of integer;
 
var
    a,b,c,d: mass; //Переменные массивов.
    i,j,k: integer; // Промежуточные переменные для работы циклов.
    n,m: integer;  // Переменные, которые задают число элементов в массивах.
 
procedure  vvodarr (n1: integer; var arr1: mass);
var
  g: integer;  //Переменная которая задает режим работы ввода "Ручной" или "Автоматический".
  i : integer;  // Переменная для работы циклов.
  L,P,PL: integer; //Переменные, которые задают границы генератора случайных чисел.
begin
  randomize;
  Writeln('Введите цифру 1, если ввод будет ручной или введите цифру 2, если нужно ');
  Write('заполнить массив автоматически случайными числами. ');
  ReadLn(g);
  if g = 1 then
     for i:=1 to n1 do
       Read(arr1[i]); //Заполняем массив в ручную.
  if g = 2 then
     begin
       write('Введите нижнюю границу генератора случайных чисел: ');
       readln(L);
       write('Введите верхнюю границу генератора случайных чисел: ');
       readln(P);
 
       PL:=abs(L)+abs(P)+1;
       for i:=1 to n1 do  //Заполняем массив случайными числами.
          arr1[i]:=random(PL)-abs(L);
     end;
end;
 
procedure vivodarr(narr: integer; arr2: mass);
var
  i: integer;  //Переменная для работы цикла.
begin
  for i:=1 to narr do
     Write(arr2[i],' '); //Выводим содержимое массива на экран.
end;
 
 
 
 
 
begin
 
 
write('Введите максимальное число элементов массива a (не более ',nmax,'): ');
readln(n);
vvodarr(n,a); // Вводим числа в массив a.
writeln();
vivodarr(n,a); // Выводим содержимое массива a на экран.
writeln();
write('Введите максимальное число элементов массива b (не более ',nmax,'): ');
readln(m);
vvodarr(m,b);  // Вводим числа в массив b.
writeln();
vivodarr(m,b);  // Выводим содержимое массива b на экран.
writeln();
 
j:=1;
for i:=1 to n do   //Ищем положительные числа в массиве a.
   if a[i]>0 then
      begin
        c[j]:=a[i]; // Присваиваем элементам массива c найденные числа.
        inc(j);
      end;
 
k:=1;
for i:=1 to n do   // Ищем отрицательные числа в массиве a.
   if a[i]<0 then
      begin
        d[k]:=a[i]; // Присваиваем элементам массива d найденные числа.
        inc(k);
      end;
 
for i:=1 to m do    // Ищем положительные числа в массиве a.
   if b[i]>0 then
      begin
        c[j]:=b[i];  // Присваиваем элементам массива c найденные числа.
        inc(j);
      end;
 
for i:=1 to m do     //  Ищем отрицательные числа в массиве a.
   if b[i]<0 then
      begin
        d[k]:=b[i];  //  Присваиваем элементам массива d найденные числа.
        inc(k);
      end;
 
writeln;
writeln('Массив положительных чисел: ');
vivodarr((n+m),c);
writeln;
writeln('Массив отрицательных чисел: ');
vivodarr((n+m),d);
 
readln;
end.