Напечатать программу где только двухзначные числа массива.СРОЧНО!!!!!!СПАСИБО!!!!!

Программа формирует и выводит массив, элементы которого принадлежат диапазону [10, 99].
const n=20;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(100)+10;
 write(a[i]:4);
 end;
writeln;
end.

Пример:
  81  39 109  85 103  48  12  77  37  32  41  30  20  38  26  47  81  34  84  17