переделать прогу с с++ на паскаль

#include<graphics.h>
#include<conio.h>
#include<iostream.h>
#include<stdlib.h>
class micros
{
int x,y,xx,yy,i;
public:
micros(int x1,int y1,int x2, int y2)
{x=x1;y=y1;xx=x2;yy=y2;}
void ris()
{
setfillstyle(1,i+2);
bar(x-2,y-2,xx+2,yy+2);
setfillstyle(1,i);
bar(x,y,xx,yy);
outtextxy(x+11,y+22,"AMD");
for(i=0;i<26;i++)
    {
    line(x+2*i,y-10,x+2*i,yy-53);
    line(x+2*i,y+53,x+2*i,yy+10);
    line(x-10,y+2*i,xx-53,y+2*i);
    line(x+53,y+2*i,xx+10,y+2*i);
    }
}
void microscolor(int i)
{
setfillstyle(SOLID_FILL,i);
setcolor(i);
ris();
}
void hide()
{
cleardevice();
}
void move(int dx,int dy,int dxx, int dyy)
{
x+=dx;
y+=dy;
xx+=dxx;
yy+=dyy;
cleardevice();
ris();
}
};
void main()
{
int dr=DETECT,mod,err;
initgraph(&dr,&mod,"");
err=graphresult();
    if(err)
    {
    cout<<"\nError of initgraph!";
    getch();
    exit(1);
    }
micros a(295,215,345,265);
a.microscolor(6);
char c;
while(1)
{
c=getch();
switch(c)
{
 
case 'w': a.move(0,-5,0,-5);break;
case 'a': a.move(-5,0,-5,0);break;
case 'd': a.move(5,0,5,0);break;
case 's': a.move(0,5,0,5);break;
case 'q': exit(1);
case 'h': a.hide();break;
case 'o': a.ris();break;
}
}
closegraph();
getch();
}