Simple Text Animation on Console Application (Pascal)

Animasi.pas

program Animasi;
uses
   crt;
const
   s = '                             Zephio';
var
   x: Integer;
   
procedure animasitext;
begin
   x := 0;
   textColor($00ff00); //cl lime
repeat
   delay(100);
   clrscr();
   x += 1;
if x = Length(s) then
   animasitext();
   WriteLn(Copy(s, x, Length(s) - 1));
until keyPressed();
end;

begin
  animasitext();
end.