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

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

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

program u15z8;
var a:array [1..8] of integer;
    b:array [1..8] of integer;
var min,max,i,j:integer;
begin
  randomize();
  min := -5;
  max := 5;
  for i:=low(a) to high(a) do
  begin
    a[i] := min + random(max - min + 1);  //заполняем первый массив
    write(a[i],' ');
    if a[i]>=0 then           //заполняем второй положительными числами
    begin
      j:=j+1;
      b[j]:=a[i];
    end;
  end;
  writeln();
  for i:=low(b) to j do  //выводимп положительные значения
    write(b[i],' ');
  readln();
end.