Pascal: mi a hiba?

Pascalban kiszeretném írni a számokat, kettessével visszafelé. Már elkezdtem, de nem akar működni!

ui: (DOSBOXos verzió)

program kettesevel;

uses crt;

var i,n:integer;

begin

clrscr;

writeln('A szamok kiirasa n-ig visszafele kettessevel');

writeln;

writeln;

write('Meddig irjam ki a szamokat?');

readln(n);

for i:=1 downto n do

begin

write(i*2:5);

end;

writeln;

writeln;

writeln('Nyomj meg egy billentyűt a befejez‚shez!');

repeat until keypressed;

end.