ASII- таблица кодировки символов — Pascal(Паскаль)

program ascii;
var
     ch:char;     { символ }
     dec:integer; { десятичный код символа }
     i,j:integer;

begin
     dec:=0;
     for i:=0 to 16 do { шестнадцать строк }
          begin
               dec:=i;     { чтобы получить таблицу кодировки}
                           { для символов с кодами 128-255, }
                           { эту инструкцию надо }
                           { заменить на dec:=i+128;}
               for j:=1 to 8 do { восемь колонок }
                    begin
                         if(dec<7) or (dec>=14)
                              then
                                   write(dec:4,'-',' ',
                                       chr(dec):1,chr(179))
                              else { символы CR,LF,TAB не отображаются }
                                   write(dec:4,'-  ',chr(179));
                         dec:=dec+16;
                    end;
               writeln;     { переход к новой строке экрана }
          end;
end.