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

Задача 7 Урок 15:

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

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