Pascal - aiuto scuola

faccio il secondo anno dell'itis e ho bisogno di una mano per un programma.
devo fare un programma in cui faccio scorrere il mio nome.
io go provato a farlo così:
program repea;
uses crt;
var col,rig,x:byte;
begin
clrscr;
repeat
col:=79;
rig:=50;
x:=col-1;
gotoxy(x,rig);
write('giuseppe');
until keypressed;
end.
però il nome non scorre
ringrazio anticipatamente

Ecco il problema : in relatà il tuo programma ti fà scorrere la tua scritta, solo che la macchina è troppo veloce e quindi il tuo occhio non vede alcun spostamento.. per questo è necessario impostare una velocità (delay).. Ecco il programma perfettamente funzionante :
----------------------------------------
uses crt;
var col,rig,x : byte;
begin
col:=1;
rig:=1;
repeat
clrscr;
gotoxy(col,rig);
write('Giuseppe');
col:=col+1;
delay (50);
{ Imposta tu la velocità desiderata }
until (col=80-length('Giuseppe'));
{ Va bene anche keypressed }
readln;
end.

grazie per l'aiuto