Программа анимация

[Дарьюша]

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

[New man]

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.

[Дарьюша]

спасибо=))*

[Дарьюша]

выдает ошибку((

[New man]

самый последний символ замени на точку

[Дарьюша]

все равно выдает ошибку...((((

[Vanta11a]

Ошибку напечатать религия не позволяет?
А если так?

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.