Вывод таблицы символов ASCII

Задача:

Выведем на экран все символы и их коды.

Код:


program ASCII;
uses crt;
var i,k:integer;
Begin
clrscr;
for i:= -9 to 13 do begin
                     for k:= 1 to 11 do
                     Write((i+k*23) mod 256 ,'  ',Chr(i+k*23),' ');
                     Writeln; {перевод строки}
                   end;
Readkey;      {ожидание нажатия любой клавиши}
End.