Нарисуйте окружность, центр которой расположен в центре графического окна, а диаметр равен высоте окна - PascalABC.NET

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

ЗАДАНИЕ:

Написать программу, которая при нажатии на кнопку F1 начинает рисовать в соответствии с заданием, приводимым ниже, а при нажатии на кнопку F2 - рисует график указанной функции, при нажатии правой кнопки мыши - графическое окно очищается. Нарисуйте окружность, центр которой расположен в центре графического окна, а диаметр равен высоте окна. Указание. Следует воспользоваться свойствами Window.Width, Window.Height и процедурой Circle. Нарисуйте график функции - sin(x)

ПРОБЛЕМА:

Все работает, но нужно сделать так,чтобы при растяжении окна - график тоже растягивался (надеюсь, понятно выразилась )

КОД ПРОГРАММЫ:

uses GraphABC;
 
procedure okr;
begin
var w:=Window.Width;
var h:=Window.Height;
Circle(w div 2, h div 2, (h div 2));
end;
 
procedure graf;
const m=100;
begin
Coordinate.SetMathematic;
Coordinate.SetOrigin(window.Width div 2, m+20);
Line(-3*m, 0, 3*m, 0);
Line(0,-m, 0, m);
var x:=-3.0;
var y:=sin(x);
MoveTo(Round(m*x), Round(m*y));
while x<3.01 do
  begin
    LineTo(Round(m*x), Round(m*y));
    x+=0.1;
    y:=sin(x);
  end;
end;

procedure KeyDown(key:integer);
begin
case key of
VK_F1: okr;
VK_F2: Graf;
end;
end; 

procedure MouseDown(x,y,mb: integer);
begin
  if mb=2 then clearwindow
end;
 
BEGIN
SetWindowSize(400,400);
OnMouseDown := MouseDown;
OnKeyDown := KeyDown;
 
END.

ЗАРАНЕЕ СПАСИБО ЗА ПОМОЩЬ!

Решение задачи: «Нарисуйте окружность, центр которой расположен в центре графического окна, а диаметр равен высоте окна»

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

uses
  GraphABC;
 
procedure Resize;
begin
  Window.Clear;
  Line(0, 0, Window.Width, Window.Height);
  Line(0, Window.Height, Window.Width, 0);
end;
  
begin
  Resize;
  OnResize := Resize;
end.

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

Подключение модуля GraphABC.
Определение процедуры Resize.
Очистка окна.
Проведение горизонтальной линии от левого верхнего угла до правого нижнего угла окна.
Проведение вертикальной линии от верхнего левого угла до нижнего правого угла окна.
Вызов процедуры Resize для рисования окружности.
Задание события OnResize, которое вызывает процедуру Resize.
Конец программы.