Проблема с выводом чисел.

[Renge]

Задача такая: вывести в 3 столбца двузначные числа: Полуюбелейное-оканчивается на 5, Приличное-первая полусотня, содержит 9, Порядочное-вторая полусотня, содержит 1.

Writeln('Полуюбелейные':20, 'Приличные':20, 'Порядочные':20);
    For y:=10 To 100 Do
    Begin
    If y mod 10=5 then Writeln(y:20);
    If ((y mod 10=9) or (y div 10=9)) and (y<50) then Writeln(y:40);
    If ((y mod 10=1) or (y div 10=1)) and (y>=50) then Writeln(y:60);
    End;

Проблема в том, что числа выводятся хотя и в 3 стобца, но не подряд, а как- так (примерно).

PHP код:

1            
       1
2
       2
3
       3
4              1
       4
5              2
                
6              3

7              4 


А нужно чтобы как-то так.

PHP код:

1      1     1
2      2     2
3      3     3
4      4
5
6 


[malinoff]

writeln выводит на экран что-нибудь, с последующим переносом строки и сдвигом каретки. write - без переноса и сдвига

[Renge]

Капитан очевидность**
Пишу просто Write так он вообще не то выводит, все числа в кучу.

[malinoff]

Сообщение от Renge

Капитан очевидность**
Пишу просто Write так он вообще не то выводит, все числа в кучу.

Конечно, не так. Потому что ввод осуществляется построчно, если вы в первой строке вывели один символ, затем во второй вывели символ - для вывода второго символа в первой строке надо каретку сдвигать со второй строки обратно на первую.
Проще сначала сформировать массив значений, где по индексам все будет заполняться в нужном виде, затем массив вывести на экран