Pascal. Программа выводит 3 столбца по рядам, а нужно чтоб №1 2 3.. в столбик. Помогите.

function DecToHex(n:byte):string;
const ib:string[16]='0123456789ABCDEF';
var s:string;
begin
s:='';
while n>0 do
begin
s:=ib[n mod 16+1]+s;
n:=n div 16;
end;
DecToHex:=s;
end;

var i,k:byte;
begin
writeln('--------------------------------');
writeln('| Символ | Код СС10 | Код СС16 |');
writeln('--------------------------------');
for i:=64 to 104 do if (i mod 2)= 0 then
writeln('| ',chr(i):4,' -':4,(i+31):7,' -':4,dectohex(i+31):7,' |':4);
readln;
end.

ДРУГОЙ ВАРИАНТ

function DecToHex(n:byte):string;
const ib:string[16]='0123456789ABCDEF';
var s:string;
begin
s:='';
while n>0 do
begin
s:=ib[n mod 16+1]+s;
n:=n div 16;
end;
DecToHex:=s;
end;

var i,k:byte;
begin
for i:=1 to 3 do write('--------------------------------'); writeln;
for i:=1 to 3 do write('| Символ | Код СС10 | Код СС16 |'); writeln;
for i:=1 to 3 do write('--------------------------------'); writeln;
i:=64;
while i<=104 do
begin
write ('| ',chr(i):4,' -':4,(i+31):7,' -':4,dectohex(i+31):7,' |':4);
inc (i);
write ('| ',chr(i):4,' -':4,(i+31):7,' -':4,dectohex(i+31):7,' |':4);
inc (i);
writeln ('| ',chr(i):4,' -':4,(i+31):7,' -':4,dectohex(i+31):7,' |':4);
inc (i);
end;
end.

ТРЕТИЙ ВАРИАНТ

function DecToHex(n:byte):string;
const ib:string[16]='0123456789ABCDEF';
var s:string;
begin
s:='';
while n>0 do
begin
s:=ib[n mod 16+1]+s;
n:=n div 16;
end;
DecToHex:=s;
end;

var i,k:byte;
begin
for i:=1 to 3 do write('--------------------------------'); writeln;
for i:=1 to 3 do write('| Символ | Код СС10 | Код СС16 |'); writeln;
for i:=1 to 3 do write('--------------------------------'); writeln;
i:=64;
while i<=77 do
begin
write ('| ',chr(i):4,' -':4,(i+31):7,' -':4,dectohex(i+31):7,' |':4);
write ('| ',chr(i+14):4,' -':4,(i+31+14):7,' -':4,dectohex(i+31+14):7,' |':4);
writeln ('| ',chr(i+28):4,' -':4,(i+31+28):7,' -':4,dectohex(i+31+28):7,' |':4);
i:=i+2;
end;
end.

насколько помню надо s:=" ",то есть пустая строка.
но что вы хотите не понял.