Вывести на экран символы и их код, согласно таблицы кодировки ASCII, начиная с 33 и заканчивая 100. Результат вывести по 10 записей в строке

Program Praktik9;
Uses crt;
Var i,k:integer;
Begin
  ClrScr;
  k:=0;
  For i:=33 to 100 do
  begin
    Write(Chr(i),'-',i:3,'  ');
    k:=k+1;
    if k=10 then
      begin
        k:=0;
        Writeln
      end
  end;
  Readkey
End.