Задача на цикл со счётчиком

Задача. Вывести на экран коды таблицы ASCII от 0 до 255. Выводить парами код и символ.

Решение.

program code;
 var i: integer; x: char;
begin
 for i:=0 to 255 do
 begin
  x:=chr(i);
  write (i);
  writeln (x:4);
 end;
end.