Задача 7 урок 15

Задача 7 урок 15

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

Var i: integer;
    a,b: array [1..8] of integer;

procedure pervii(var a: array of integer);
var min, max: integer;
begin
  randomize();

  min:=-5;
  max:=5;

  for i:=low(a) to high(a) do
      a[i]:=min+random(max-min+1);
end;

begin
     pervii(a);
     for i:=low(a) to high(a) do
         if a[i]>0 then b[i]:=a[i];
     for i:=low(b) to high(b) do
         if b[i]>0 then write(b[i],' ');
readln();
end.