Графика Pascal ABC

[maxon56]

как сделать так,чтобы во время движения не оставалось чёрных линий?

uses
  crt,
  GraphABC;

begin
  
  var x: integer;
  begin
    for x := 1 to 230 do
    begin
      
      
      circle(x + 50, 350, 17);
      line(x + 50, 367, x + 35, 390);
      line(x + 50, 367, x + 65, 390);
      line(x + 50, 367, x + 50, 407);
      line(x + 50, 407, x + 35, 425);
      line(x + 50, 407, x + 65, 425);
      circle(x + 43, 343, 3);
      circle(x + 55, 343, 3);
      line(x + 45, 355, x + 55, 355);
      rectangle(300, 300, 375, 425);
      line(337, 300, 337, 424);
      delay(20);
      
      
      
    end;
  end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

линии остаются, потому что Вы нарушаете правила анимирования!

Нужно так: вывести объект. Выждать паузу. Стереть объект.
изменить координаты. Повторить цикл до достижения заданных условий.

У Вас нет стирания объекта!

в Вашем случае можно после Delay().. изменить цвет кисти на цвет фона и вывести объект. Это сотрёт его...

[ka2na4ei]

Либо просто закрасить другой фигурой чуть большим радиусом, но с цветом совпадающим с фоном