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

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

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

var  a, b: array[1..8] of integer;
    i, i2: integer;
begin
  randomize();
  i2 := 1;
  for i:=low(a) to high(a) do
  begin
    a[i] := random(10) - 5;
    if a[i] >=  0 then
      begin
        b[i2] := a[i];
        i2 := i2 + 1;
      end;
  end;
  for i := 1 to i2-1 do
    write(b[i], ' ');
  readln;
end.