Распределить символы по столбцам - Turbo Pascal

Формулировка задачи:

Привет! Помогите распределить 255 символов в 8 столбцов У меня сейчас код так выглядит

Uses crt;
Var
 a,b: integer;
Begin
 clrscr;
 for a:= 0 to 255 do
 writeln(a,' _ ',chr(a));
 readln
end

Выглядит это так

Решение задачи: «Распределить символы по столбцам»

Листинг программы

var i,a,a1: byte;
begin
  a1:=32;
  while a1<60 do
   begin
    a:=a1;
    for i:=1 to 8 do begin Write(a:5, ' - ', Chr(a));a:=a+28 end;
    writeln;
    inc(a1)
   end;
  ReadLn
end.

Объяснение кода листинга программы

Переменная i и a инициализируются значением byte.
Значение переменной a1 устанавливается равным 32.
Запускается цикл while, условием которого является a1<60.
Внутри цикла переменная a инициализируется значением a1.
Запускается вложенный цикл for, который выполняется 8 раз. На каждой итерации значение переменной a увеличивается на 28, а затем выводится на экран с помощью функции Write(). Символ - также выводится между значениями переменной a.
После завершения вложенного цикла выводится символ новой строки с помощью функции writeln.
Значение переменной a1 увеличивается на единицу.
Запускается функция ReadLn(), чтобы прочитать ввод пользователя.
Программа завершается.