Вывод таблицы соответствия кодов ASCII и символов алфавита. Ошибка несоответствия типов - Turbo Pascal

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

program asc2;
uses crt;
var smb: array['A'..'Z'] of char;
Smb: integer;
i: integer;
const n=25;
begin
clrscr;
writeln('CODE ASCII | SYMBOL');
code:=88;
for i:= 1 to n do
    begin
    code:=code+1;
    writeln(code,'     |     ' ,smb[i]);
    end;
readkey;
end.

Как вывести поочередно буквенный массив?

Решение задачи: «Вывод таблицы соответствия кодов ASCII и символов алфавита. Ошибка несоответствия типов»

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

for i:=32 to 255 do
if i in[48..57,65..80] then writeln(...); //выведет цифры и буквы A..P

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

Вот что делает данный код:

Инициализирует переменную i со значением 32.
Запускает цикл for, который выполняется для каждого значения i от 32 до 255.
Проверяет условие if: если значение i находится в диапазоне от 48 до 57 или от 65 до 80, то выполняется блок кода внутри условного выражения.
Выводит информацию о каждом соответствующем символе. Примечание: в данном коде не используются вложенные списки.