Анимация в Pascal ABC - закат солнца. (Очень нужна помощь, доделать программу)

[Господин Никто]

Помогите, пожалуйста, доделать программу. программу взяла отсюда же, немного доработала, но дальше не получается. Солнце опускается вниз(перерисовка) и останавливается посередине. Дальше нужно копированием сделать так, чтобы оно шло вправо до конца. Буду очень благодарна, так как нет возможности сейчас самой долго разбираться.
Вот код:

program abc;
 
uses
  graphABC,PointRect;
 
var
  y, x1, y1 , pic, i, j, k: integer;
  re:Rect;
 
begin
  setwindowsize(900, 600);
 
  lockdrawing;
  y1 := 0;
  x1 := 450;
  for i := 1 to 25 do
 
 
  begin
    clearwindow;
    if y1 >= 400 then
    begin
      setpencolor(clBlack);
      setbrushcolor(clBlack);
      rectangle(0, 0, 900, 200);
      setpencolor(clBlack);
      setbrushcolor(clBlack);
      rectangle(0, 200, 900, 400);
    end else
    if y1 >= 300 then
    begin
      setpencolor(rgb(39, 33, 61));
      setbrushcolor(rgb(39, 33, 61));
      rectangle(0, 0, 900, 200);
      setpencolor(rgb(39, 33, 61));
      setbrushcolor(rgb(39, 33, 61));
      rectangle(0, 200, 900, 400);
    end else
    if y1 >= 200 then
    begin
      setpencolor(rgb(48, 43, 98));
      setbrushcolor(rgb(48, 43, 98));
      rectangle(0, 0, 900, 200);
      setpencolor(rgb(48, 43, 98));
      setbrushcolor(rgb(48, 43, 98));
      rectangle(0, 200, 900, 400);
    end else
    if y1 >= 100 then
    begin
      setpencolor(rgb(57, 49, 133));
      setbrushcolor(rgb(57, 49, 133));
      rectangle(0, 0, 900, 200);
      setpencolor(rgb(57, 49, 133));
      setbrushcolor(rgb(57, 49, 133));
      rectangle(0, 200, 900, 400);
    end else
    begin
      setpencolor(clAqua);
      setbrushcolor(clAqua);
      rectangle(0, 0, 900, 200);
      setpencolor(clAqua);
      setbrushcolor(clAqua);
      rectangle(0, 200, 900, 400);
    end;
    setpencolor(clyellow);
    setbrushcolor(clyellow);
    y1 := y1 + 8;
    circle(x1, y1, 50);
 
    setpencolor(clTeal);
    setbrushcolor(clTeal);
    rectangle(0, 400, 900, 600);
 
    if y1 <= 450 then
    begin
      y := 420; k := 20;
      for j := 1 to 15 do
      begin
        setpencolor(clYellow);
        setbrushcolor(Random(16777215));                       ;
        Ellipse(440 - k, y, 465 + k, y + 10);
        y := y + 20;
        if j mod 2 = 0 then k := k - 5 else
          k := k + random(20);
        sleep(20);
      end;
    end else
    begin
      setpencolor(clTeal);
      setbrushcolor(clTeal);
      rectangle(0, 400, 900, 600);
    end;
    sleep(10);
    redraw;
  end;
 
end.

[Serge_Bliznykov]

Дальше нужно копированием сделать так, чтобы оно шло вправо до конца.

поясните, что означает "копированием"?
и объясните - когда оно должно двигаться вправо? (дошло сверху вниз до середины, потом начало строго по горизонтали двигаться вправо до правой границы экрана?!

[Господин Никто]

ну, как я понимаю, это вот такой функцией:

pic:=createPictureFromRect(re);
for i:=0 to 120 do
begin
DrawPicture(pic, i, 105);
sleep(1);
end;
end;


да, именно так. до середины экрана(это уже сделано), а потом строго вправо до правой границы. преподаватель вот так придумал)
паскаль знаю плохо, сколько ни пробовала-не выходит.

[Serge_Bliznykov]

Господин Никто, а Вы знаете, что солнышко останавливается не потому, что так задумано в программе, а из-за ошибки.
кто-то, видимо, правил код, но не очень удачно.

исправьте строчку:

 x1 := 450;
  for i := 1 to 25 do

на

  x1 := 450;
  for i := 1 to 60 do

увидите код так, как его задумывал программист изначально.

[Serge_Bliznykov]

а вот и код для движения вправо:

    redraw;
  end;


  re.Left := x1 - 55;
  re.Top := y1 - 55;
  re.Right := x1 + 55;
  re.Bottom := y1 + 55;

  pic:=createPictureFromRect(re);
  i:=0;
  while i<=(900+50-x1) do
  begin
      DrawPicture(pic, i+x1-50, y1-50);
      redraw;
      sleep(40);
      i:=i+5
  end;

end.

сереньким выделил те операторы, которые у Вас уже есть.
Код вставляете перед финальным END. программы.

[Господин Никто]

спасибо вам большое! вы меня очень выручили)
а код правила я,пыталась что-то сделать))
держите виртуальную шоколадку)