Сформулировать массив случайных чисел из 10 элементов,принадлежащих интервалу |-5..6|.вывести на экран элементы меньше 0

Вот скриншоты программы и результатов работы программы:

Uses crt;const n=10;var  a:array[1..n] of integer;  i,max,min: integer;begin clrscr;for i := 1 to n do begina[i]:=random(-5,6);write(a[i]:4);end;writeln;for i := 1 to n do beginif a[i]>0 then write(a[i]:4);end;writeln;end.