Красный закрашенный квадратик должен двигаться по экрану вправо – влево - Pascal ABC

Формулировка задачи:

Красный закрашенный квадратик должен двигаться по экрану вправо – влево, после прохождения одной горизонтали должен смещаться вниз (как бы в следующую строку, и так до границы экрана), а затем наоборот вверх. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры. ребят помогите пожалуйста!)) заранее спасибо!)))

Решение задачи: «Красный закрашенный квадратик должен двигаться по экрану вправо – влево»

Листинг программы

uses crt,graphABC;
 
procedure Gor(y:integer);
var x: integer;
begin
for x:=0 to 750 do
    begin
    clearwindow;
    rectangle(x,y,x+50,y+50);
    sleep(1);
    redraw;
    end;
for x:=750 downto 0 do
    begin
    clearwindow;
    rectangle(x,y,x+50,y+50);
    sleep(1);
    redraw;
    end;
end;
 
procedure Vert;
var y: integer;
begin
for y:=0 to 450 do
    begin
    Gor(y);
    y:=y+50;
    end;
for y:=450 downto 0 do
    begin
    Gor(y);
    y:=y-50;
    end;
redraw;
end;
 
begin
setwindowsize(800,500);
setbrushcolor(clred);
lockdrawing;
hidecursor;
repeat
Vert;
until keypressed;
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal ABC. Основная задача кода - реализовать движение красного квадратика по экрану вправо-влево. Код состоит из двух процедур:

Gor(y:integer) - эта процедура отвечает за движение квадратика по вертикали. В ней используется два цикла: первый цикл рисует квадратик в заданной позиции и сдвигает его на 50 пикселей вправо, затем второй цикл сдвигает квадратик на 50 пикселей влево.
Vert - эта процедура отвечает за движение квадратика по горизонтали. Она вызывает процедуру Gor для каждой позиции по вертикали от 0 до 450 и от 450 до 0 с шагом 50. В основной части кода устанавливаются размеры окна (800 на 500 пикселей), цвет кисти устанавливается на красный, и выполняется цикл Vert до тех пор, пока не будет нажата клавиша.