Написать программу, чтобы цифра 5 двигалась по экрану в виде звездочек, доходила ло конца и отображалась — Pascal(Паскаль)

program Risovanie;
uses crt;
procedure Ris(x,y:integer);
var i:integer;
begin
   Gotoxy(x,y);
   write('*****');
   gotoxy(x,y+1);
   write('*');
   gotoxy(x,y+2);
   write('*');
   gotoxy(x+1,y+2);
   write('*');
   gotoxy(x+2,y+3);
   write('**');
   gotoxy(x+3,y+4);
   write('*');
   gotoxy(x+3,y+5);
   write('*');
   gotoxy(x+3,y+6);
   write('*');
   gotoxy(x+1,y+7);
   write('**');
   gotoxy(x,y+8);
   write('*');
end;
var i:integer;
begin
  i:=5;
  while i<70 do
      begin
          clrscr;
          ris(i, 20);
          inc(i,5);
      end;
end.

program Risovanie;
uses crt;
var i:integer;

procedure Ris(x,y:integer);
begin
   Gotoxy(x,y);
   write('*****');
   gotoxy(x,y+1);
   write('*');
   gotoxy(x,y+2);
   write('*');
   gotoxy(x+1,y+2);
   write('*');
   gotoxy(x+2,y+3);
   write('**');
   gotoxy(x+3,y+4);
   write('*');
   gotoxy(x+3,y+5);
   write('*');
   gotoxy(x+3,y+6);
   write('*');
   gotoxy(x+1,y+7);
   write('**');
   gotoxy(x,y+8);
   write('*');
end;

begin
  i:=5;
  while i<70 do
      begin
          clrscr;
          ris(i, 20);
          inc(i,5);
      end;
end.