Dirt_nba, коды таблиц - это и есть от 0 до 255... А если хочешь вывести символы таблицы (все), то используй этот цикл:
Code
Uses CRT;
Var i: Integer;
Begin
ClrScr;
For i := 0 to 255 do
Begin
If i = 10 then
Begin
Writeln(i, '-',' ');
Continue;
End;
If i = 13 then
Begin
Write(i, '-',' ');
Continue;
End;
Write(i,'-',Chr(i),' ');
If (i mod 10 = 0) then Writeln;
Readkey;
End;
ReadKey;
End.
Заморочка с кодами 10 и 13 в том, что они переносят строку и возвращают картеку, поэтому и не нужно их выводить (вся таблица ломается).
