Напишите программку в которой одномерный массив на 10 частей , необходимо

Var A:array[1..10] of Integer;
i,N,k,l,j:integer;
begin
Readln(N);
For i:=1 to N do
A[i]:=Random(1,10);
For i:=1 to N do
Write(A[i],' ');
Writeln;
For i:=1 to N do
  If (A[i]gt;=6) and (A[i]lt;=20) then
  k:=k+1;
Writeln('количество значений лежащих в промежутке [6 до 20] ',k);
For i:=1 to N-1 do
  For j:=i+1 to N do
    If A[i]*A[j]gt;10 then
    l:=l+1;
Writeln('количество значений произведение которых больше 10',l);
end.