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

[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.

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

[Altair]

поменяй местами строки:

if i mod 10 = 0 then writeln;

и

write(m[i]:5);

ТО есть код такой:

Код

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

Странно, вроде знакомый какой-то код