1. Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: последовательно переписать в другой массив отрицательные элементы начального массива.
с применение подпрограмм и процедур желательно

const  nn = 20;type  ta = array[1..nn] of integer;procedure FillArray(var a: ta; n, min, max: integer);var  i, k: integer;begin  k := max - min + 1;  for i := 1 to n do a[i] := Random(k) + minend;procedure WriteArray(a: ta; n, p: integer);var  i: integer;begin  for i := 1 to n do Write(a[i]:p);  Writelnend;procedure CopyNegative(var a, b: ta; m: integer; var n: integer);var  i: integer;begin  n := 0;  for i := 1 to m do     if a[i] < 0 then    begin      Inc(n);      b[n] := a[i]    endend;var  n: integer;  x, y: ta;begin  Randomize;  FillArray(x, 10, -50, 50);  Writeln('Исходный массив');  WriteArray(x, 10, 4);  CopyNegative(x, y, 10, n);  Writeln('Массив из отрицательных элементов');  WriteArray(y, n, 4);  FillArray(x, 8, -200, 100);  Writeln('Исходный массив');  WriteArray(x, 12, 5);  CopyNegative(x, y, 12, n);  Writeln('Массив из отрицательных элементов');  WriteArray(y, n, 5);end.Тестовое решение:Исходный массив -12  17  35  -4 -45   8  33  -8 -47  -4Массив из отрицательных элементов -12  -4 -45  -8 -47  -4Исходный массив -150 -174   92 -168   69  -60 -165  -78  -47   -4    0    0Массив из отрицательных элементов -150 -174 -168  -60 -165  -78  -47   -4