Елементи на анимацията

Program Animation1;
Uses Crt;
 var y:string;
 Begin
      Repeat
      clrscr;
      textcolor(1);
       writeln('zdravei');
        delay(100);
     
       until   y='y';
End.