Написать программу, которая выводит таблицу кодов ASCII в три колонки, начиная с кода 32 до 127(код-символ, код-символ, код-символ) — Pascal(Паскаль)

program ASCII_table;
uses crt;
var
i,j,k:byte;
procedure ASCII;
var
  i: integer;
begin
for i:=1 to 32 do
 begin
  for j:=1 to 3 do
   begin
    k:=i+31+32*(j-1);
    write (k:3,'-',chr(k),' ');
   end;
  writeln;
  if i=22 then readln;
 end;
end;
begin
clrscr;
writeln('программа выводит все символы ASCII-таблицы с их кодами');
writeln('***** ASCII *****');
ASCII;
writeln('нажмитее [Enter] для завершения программы');
readln;
end.