ООП Турбо Паскаль

uses graph,crt;
procedure ris(x,y,c1,c2:integer);
var a:integer;
begin
a:=round(20*sin(pi/4));
setcolor(c1);
setfillstyle(1,c1);
circle(x,y,20);
floodfill(x,y,c1);
setcolor(c2);
setfillstyle(1,c2);
rectangle(x-a,y-a,x+a,y+a);
floodfill(x,y,c2);
end;
var x,y,c1,c2,d:integer;
    k:char;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
c1:=1;
c2:=2;
outtextXY(x-110,20,'Dvizenie - strlki vverh, vniz');
outtextXY(x-130,40,'Smena cveta - strlki vlevo, vpravo');
outtextXY(x-50,60,'Exit Esc');
ris(x,y,c1,c2);
repeat
if keypressed then
 begin
  k:=readkey;
  if k=#0 then k:=readkey;
  case k of
  #80:begin
      delay(100);
      ris(x,y,0,0);
      if y>getmaxY-30 then d:=0
      else d:=10;
      y:=y+d;
      ris(x,y,c1,c2);
      end;
  #72:begin
      delay(100);
      ris(x,y,0,0);
      if y<50+40 then d:=0
      else d:=10;
      y:=y-d;
      ris(x,y,c1,c2);
      end;
  #75:begin
      c1:=c1+1;
      if c1=16 then c1:=1;
      c2:=c2+1;
      if c2=16 then c2:=1;
      ris(x,y,0,0);
      ris(x,y,c1,c2);
      end;
  #77:begin
      c1:=c1-1;
      if c1=0 then c1:=15;
      c2:=c2-1;
      if c2=0 then c2:=15;
      ris(x,y,0,0);
      ris(x,y,c1,c2);
      end;
  #27:exit;
  end;
 end;
until k=#27;
end.

uses Graph, CRT;
const  r=70;
type
   koor=record
    x,y:integer;
    end;
   mas=array [1..5] of koor;
   tochka=object
   x,y,n,t:integer;
   c:word;
   end;
 
pyt=object(tochka)
m:mas;
c1:word;
 
procedure lab;
end;
 
procedure color(var n:integer; t:integer);
begin
n:=n+t;
if n>15 then
n:=1;
if n<1 then
n:=15;
setfillstyle(1,n);
end;
 
procedure laba(angle:integer;m:mas;n:integer);
var
   i,j,ang,xc,yc:integer;
begin
 cleardevice;
 SetColor(blue);
     SetLineStyle(SolidLn,0,ThickWidth);
     SetFillStyle(1,black);
     xc := getmaxx div 2;
     yc := getmaxy div 2;
     ang:=angle;
  for i:=1 to 5 do
  begin
  m[i].x:=xc+round(r*sin(ang*pi/180));
  m[i].y:=yc-round(r*cos(ang*pi/180));
  ang:=ang+70;
  end;
 
  setfillstyle(1,n);
  fillpoly(5,m);
end;
procedure pyt.lab;
var
ch:char;
angl:integer;
begin
 angl:=18;
 n:=4;
     laba(angl,m,n);
     while ch<>#27 do
     begin
     ch:=ReadKey;
     Case ch of
     #75:
         begin
                laba(angl,m,n);
                color(n,-1);
                angl:=angl-24;
                laba(angl,m,n);
         end;
     #77:
         begin
                laba(angl,m,n);
                angl:=angl+24;
                color(n,+1);
                laba(angl,m,n);
         end;
     end;
     end;
 
end;
 
var
   GraphDriver, GraphMode, ErrorCode: integer;
   angl:integer;
   ch:char;
 
procedure GrInit;
begin
     GraphDriver:=Detect;
     InitGraph(GraphDriver, GraphMode, '');
     ErrorCode:=GraphResult;
     if ErrorCode<>grOk then
 
     begin
          writeln('Graphics initialization error: ',GraphErrorMsg(ErrorCode));
          Halt(1);
     end;
end;
 
var
c:pyt;
begin
grinit;
c.lab;
end.

uses graph,crt;
type {описание объекта "Фигура"}
figura=object
       x,y: integer;{координаты центра объекта на экране}
       r,a:integer;{радиус окружности и сторона квадрата}
       c1,c2:word; {цвета объекта}
       constructor create(x1,y1,r1:integer; c11,c12:word);{инициализация объекта}
       procedure SwithOn; {отображение объекта}
       procedure SwithOf; {сокрытие объекта}
       procedure Move(dy: integer);{смещение объекта на dy}
       procedure Change(dc:integer); {смена цвета на dc}
       end;
constructor figura.create;
 begin
   x:=x1;
   y:=y1;
   r:=r1;
   a:=round(r*sin(pi/4));
   c1:=c11;
   c2:=c12;
 end;
procedure figura.SwithOn;{нарисовать фигуру заданным цветом}
begin
setcolor(c1);
setfillstyle(1,c1);
circle(x,y,r);
floodfill(x,y,c1);
setcolor(c2);
setfillstyle(1,c2);
rectangle(x-a,y-a,x+a,y+a);
floodfill(x,y,c2);
end;
 
procedure figura.SwithOf;{нарисовать цветом фона=стереть}
 begin
  setcolor(GetBkColor);
  setfillstyle(1,GetBkColor);
  circle(x,y,r);
  floodfill(x,y,GetBkColor);
  setcolor(GetBkColor);
  setfillstyle(1,GetBkColor);
  rectangle(x-a,y-a,x+a,y+a);
  floodfill(x,y,GetBkColor);
 end;
 
procedure figura.Move;
var NewY: integer; {вспомогательная переменная для вычисления координаты Y}
begin
 figura.SwithOf;     {погасить объект}
 {вычисление новой координаты}
 NewY:=y+dy;
 {анализ новой координаты, чтобы объект не вышел за рамки экрана}
 if NewY>479-r then y:=479-r
 else if NewY<70+r then y:=70+r
 else y:=NewY;
 figura.SwithOn;          {отобразить объект}
end;
 
procedure figura.Change;
begin
figura.SwithOf;     {погасить объект}
c1:=c1+1;
if c1=16 then c1:=1 else if c1=0 then c1:=15;
c2:=c2+1;
if c2=16 then c2:=1 else if c2=0 then c2:=15;
figura.SwithOn;          {отобразить объект}
end;
 
var f:figura;
    x0,y0:integer;
    k:char;
begin
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
outtextXY(x0-110,20,'Dvizenie - strlki vverh, vniz');
outtextXY(x0-130,40,'Smena cveta - strlki vlevo, vpravo');
outtextXY(x0-50,60,'Exit Esc');
f.Create(x0,y0,20,1,2);
f.SwithOn;
repeat
if keypressed then
 begin
  k:=readkey;
  if k=#0 then k:=readkey;
  case k of
  #80: f.Move(10);
  #72: f.Move(-10);
  #75: f.Change(-1);
  #77: f.Change(1);
  #27:exit;
  end;
 end;
until k=#27;
end.