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

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

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

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

procedure randomchis(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
  randomchis(a);
  i2:=0;
  for i:=low(a) to high(a) do
    if a[i]>0 then
    begin
      i2+=1;
      b[i2]:=a[i];
    end;
    for i:=low(a) to high(a) do
     write(a[i], ' ');
    writeln();
    writeln();
    for i2:=low(b) to high(b) do
        write(b[i2], ' ');
  readln();
end. 

Вывод консоли:

0 -1 5 -3 -1 -3 4 2

5 4 2 0 0 0 0 0