Переход на новую строку Опции

[suriv]

Дан массив из 100 чисел. Заполнить его случаными значениями и распечатать его по 10 чисел в строке.

Код

program k;
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if i mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.

В чем моя ошибка?