Использование класса данных «объект» (ABCObject)

[Профан546]

Составить программу для решения этого кода с использованием класса данных «объект».

uses
GraphABC;
const
R = 20;
begin
var x0 := 0;
var y0 := Window.Height div 2;
TextOut(10, 20, 'Введите амплитуду (в пикселях):');
var A := ReadInteger;
TextOut(10, 40, 'Введите период (в пикселях):');
var P := ReadInteger;
var Left_Right := true;
var i := 0;
var w := Window.Width;
LockDrawing;
while true do
begin
if Left_Right then
if (i < w) then inc(i)
else Left_Right := false
else
if Left_Right = false then
if i > 0 then dec(i)
else Left_Right := true;
var t : real := pi * i / 500;
var x := i;
var y := round(A * sin(2 * pi * i / P) / 2);
if frac(x / P) < 1E-7 then begin
end;
Circle(x, y0 - y, R);
redraw;
Window.Clear;
sleep(0)
end
end.