Используя ООП, определить объект Прямоугольник. Отобразить прямоугольник зеленого цвета в верхнем углу экрана. Переместить прямоугольник в центр экрана — Pascal(Паскаль)

uses crt,graph;
type Rect=object
          x,y,w,h,c:integer;
          procedure Create;
          procedure Move(xc,yc:integer);
          procedure Clear(xc,yc:integer);
          end;
procedure Rect.Create;
begin
writeln('Vvedite dliny storon:');
readln(w,h);
end;
procedure Rect.Move;
begin
setcolor(c);
rectangle(x,y,x+w,y+h);
setfillstyle(1,c);
floodfill(x+5,y+5,c);
outtextXY(xc-50,2*yc-40,'Press Enter...');
readln;
end;
 
procedure Rect.Clear;
begin
cleardevice;
outtextXY(xc-50,2*yc-40,'Press Enter...');
end;
 
var k:Rect;
    d,m,x0,y0:integer;
begin
clrscr;
k.create;
d:=0;
initgraph(d,m,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
k.c:=10;
k.x:=2*x0-k.w-10;
k.y:=10;
k.move(x0,y0);
k.clear(x0,y0);
k.x:=x0-k.w div 2;
k.y:=y0-k.h div 2;
k.move(x0,y0);
end.