Program Pascal Membuat efek tulisan berkedip dan berjalan

program tulisan_berjalan;
uses wincrt;
var i,j,k:integer;
begin
for i:=9 downto 1 do
begin
for j:=1 to 1000 do
begin
gotoxy(1,1); write(i);
end;
for k:=1 to 500 do
clrscr;
end;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('      ***       * *   ');
writeln('     *   *    **   *  ');
writeln('   ****   *  *  * *   ');
writeln('  ******   **  *   *  ');
writeln('  ******      *  *    ');
writeln('   ****               ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('      ***   *  *  ');
writeln('     *   *   *   ');
writeln('   ****   *  * *');
writeln('  ******   **  * ');
writeln('  ******          ');
writeln('   ****               ');
end;
for k:=1 to 300 do
clrscr;


for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('      ** *  ');
writeln('     *   * *    ');
writeln('   **** * * ');
writeln('  ******    ');
writeln('  ******          ');
writeln('   ****               ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('      *  ');
writeln('     *      ');
writeln('   ****  ');
writeln('  ******    ');
writeln('  ******          ');
writeln('   ****               ');
end;
for k:=1 to 300 do
clrscr;

for j:=1 to 1000 do
begin
gotoxy(1,1);
writeln('*   *  *  *');
writeln('  *   *  * *   ');
writeln(' *  * * **  ');
writeln('*  * *   *  *    ');
writeln(' * * **  * * *          ');
writeln('*   *  *  ** *               ');
end;
for k:=1 to 300 do
clrscr;

for i:=1 to 50 do
begin
for j:=1 to 50 do
begin
gotoxy(i,1);
writeln(' ***  ********    *****    ');
gotoxy(i,2);
writeln(' ***  ********  *** ');
gotoxy(i,3);
writeln(' ***    ***       **  ');
gotoxy(i,4);
writeln(' ***    ***        ***   ');
gotoxy(i,5);
writeln(' ***    ***     *****    ');

end;
for k:=1 to 50 do
clrscr;
end;
gotoxy(1,1);
writeln('   ***   *****   **  * ');
writeln('  **  *  **  *   ** *  ');
writeln('  **     *****   ***   ');
writeln('  **  *  **  *   ** *  ');
writeln('   ***   **  *   **  * ');
end.