составьте программку,которая наполняет массив а[1..10] случайными целыми числами в спектре

Const
n=10;
var
a:array[1..n] of integer;
i,e:integer;
begin
e:=0;
writeln('Начальный массив');
for i:=1 to n do
begin
a[i]:=random(24)-12;
write(a[i],' ');
end;
writeln;
writeln('Положительные числа');
for i:=1 to n do
if a[i]gt;0 then
begin
write(a[i],' ');
e:=e+1;
end;
writeln;
writeln('Кол-во положительных частей ',e);
end.
ТЕСТ
Начальный массив
-10 -6 5 5 0 -1 3 -2 6 -9 
Положительные числа
5 5 3 6 
Кол-во положительных элементов 4