Сформировать массив из 15 случайных чисел, принадлежащих интервалу [-30, 30]. Найдите

Const Sz = 100; // Размер массива

var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;

begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]lt;=5) and (a[i]gt;0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.