Вывести на экран 6 случайных чисел от 0 до 20 и

Var
i:integer;
mas: array [1..6] of integer;
begin
writeln('6 случайных чисел:');
randomize;
for i:=1 to 6 do begin
mas[i]:=random(0,20);
write(mas[i], ' ');
end;
writeln(' ');
writeln('Номера частей gt; 10:');
for i:=1 to 6 do begin
if mas[i] gt; 10 then
write(i,' ');
end;
end.