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 ;/