pascalabcnet/InstallerSamples/!Tutorial/07_CharString/CharTable.pas

// Таблица символов и их кодов
begin
  for var i:=32 to 255 do
  begin
    Write(i:4,chr(i):2,'  ');
    if i mod 8 = 7 then Writeln;
  end;
end.