Program wypisujący kod ASCII w 3 kolumnach.

Witam.
Muszę zrobić program wypisujący kod ASCII w kolumnie po 20 a po wciśnięciu dowolnego klawisze wypisuje kod w kolejnej kolumn.

program z25;
 uses
  crt;
 var
  i:integer;
  znak:char;
begin
  clrscr;
   for i:=33 to 255 do
     begin
      writeln('znak=',i,' ',chr(i) );
      if (i mod 20)=0 then
       begin
       znak:=readkey;
       end;
     end;



 repeat until keypressed;
end.

To jest program który wypisuje ale tylko w jednej kolumnie ;/

20 znaków wypisuj za pomocą procedury Write. Po wypisaniu dwudziestego znaku wstaw samą procedurę WriteLn aby rozpocząć wypisywanie od nowej linijki.