Вывод букв в две колонки - Turbo Pascal

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

Суть такова: вывожу заглавные буквы латинского алфавита от А до Z используя их ASCII-коды. При выводе на экран их нужно разбить в две колонки. С этой целью использовал четность/нечетность ASCII-кода. Вот что получилось.

                    Листинг программы
                
 
                        
                          
                    
program alf1;
uses crt;
var a: char; i: byte;
begin
clrscr;
for i:=65 to 90 do
begin
if (i mod 2<>0) then writeln;
a:=chr(i);
write(a);
end;
readkey;
end.

Одно "но" - на первой итерации цикла i=65, соответственно идет сначала проверка условия, а потом запись - в новую строку. Дальше все идет нормально, но как сделать, чтобы в самый первый раз эта первая строчка не оставалась пустой? Чтобы начиналось оттуда, откуда должно начинаться. Тут дело в самом цикле с его предпроверкой условия? И как использовать постпроверку в первой итерации "без последствий" для всей остальной части? P.S. знаю вопрос тупенький но я полное днище, пару дней как начал. Спасибо всем, кто отзовется

Решение задачи: «Вывод букв в две колонки»

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

var i: Byte;
begin
  for i:=65 to 90 do begin
    Write(Chr(i));
    if i mod 2=0 then WriteLn;
  end;
  Write('Нажмите Enter...'); ReadLn;
end.

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

Объявляется переменная i типа Byte.
Запускается цикл for, который проходит по всем символам от 65 до 90 (это буквы английского алфавита).
Внутри цикла выводится символ, соответствующий переменной i, с помощью функции Write(Chr(i)).
Если i делится на 2 без остатка, то выводится символ новой строки с помощью функции WriteLn.
После завершения цикла выводится сообщение Нажмите Enter....
Считывается символ новой строки с помощью функции ReadLn.