Вывести на экран двузначные числа кратные 11 и вычислить их произведения

У меня получилось вот что. Я вывел произведения ПОПАРНО, одновременно организовал вывод на дисплей в 5 столбиков (а при работе WriteLn результаты не помещаются в одном окошке.

Var i:integer;   p:real;
begin
writeln('числа кратные 11: ');
p:=1;
for i:=10 to 99 do
if i mod 11=0 then begin p:=p*i; write(i:3);  end;
writeln;
writeln('произведение= ',p);
end.