Перевести код с Си на PascalABC.NET

#include <stdio.h>
#include <conio.h>
#include <graphics.h>
#include <math.h>
struct ln{
int x1;
int y1;
int x2;
int y2;
};
 
struct tchk{
int x;
int y;
};
 
struct tchk t[20];
 
struct ln l[10];
 
FILE*f1;
FILE*f2;
FILE*f3;
 
float fx(float t){
int y;
y=50*sin(4*t)*cos(t);
return y;
}
float fy(float t){
int y;
y=50*sin(4*t)*sin(t);
return y;
}
void z1(){
float i,min,max;
int a=9, b=2;
initgraph(&a,&b,"");
setbkcolor(7);
setfillstyle(1,7);
floodfill(1,1,1);
for(int i=100;i<500;i=i+10){
line(i,298,i,302);
line(298,i,302,i);
}
for(i=300;i<500;i=i+50){
int d;char str[15];
d=(i-300)/10;
sprintf(str,"%d",d);
outtextxy(i,290,str);
}
for(i=300;i>100;i=i-50){
int d;char str[15];
d=(i-300)/10;
sprintf(str,"%d",d);
outtextxy(i,290,str);
}
for(i=300;i<500;i=i+50){
int d;char str[15];
d=0-((i-300)/10);
sprintf(str,"%d",d);
outtextxy(310,i,str);
}
for(i=300;i>100;i=i-50){
int d;char str[15];
d=0-((i-300)/10);
sprintf(str,"%d",d);
outtextxy(310,i,str);}
line(100,300,500,300);
line(300,100,300,500);
line(500,300,495,305);
line(500,300,495,295);
line(300,100,305,105);
line(300,100,295,105);
outtextxy(505,300,"X");
outtextxy(305,95,"Y");
for (i=-1000;i<=1000;i++){putpixel(300+fx(i/200),300+fy(i/200),8);}
getch();
closegraph();
float t;char c;
FILE*f;
f=fopen("/Func.txt","w");
fprintf(f,"----------------------");
fprintf(f,"\nT | X | Y|\n");
fprintf(f,"----------------------");
for(t=0;t<=6.28;t=t+0.2){
fprintf(f,"\n%3.1f | %3.1f | %3.1f |\n",t,fx(t),fy(t));
fprintf(f,"----------------------");
};
fclose(f);
freopen("/Func.txt","r",stdin);
while (c!=EOF)
{
c=getchar();
putchar(c);
}
getch();
}
 
void z2(){
f1=fopen("/f1.txt","w");
f2=fopen("/f2.txt","w");
f3=fopen("/f3.txt","w");
l[1].x1=50;l[1].y1=50;
l[1].x2=250;l[1].y2=350;
 
t[1].x=75; t[2].x=65 ; t[3].x=110; t[4].x=370 ; t[5].x=130 ; t[6].x=145 ; t[7].x=75 ; t[8].x=90 ; t[9].x=410 ; t[10].x=40 ;
t[1].y=70;t[2].y=200 ;t[3].y=70 ;t[4].y=350 ;t[5].y=420 ;t[6].y=55 ;t[7].y=80 ;t[8].y=95 ;t[9].y=65 ;t[10].y=150 ;
int a=9, b=2;
initgraph(&a,&b,"");
line(l[1].x1,l[1].y1,l[1].x2,l[1].y2);
rectangle(l[1].x1,l[1].y1,l[1].x2,l[1].y2);
for(int i=1;i<11;i++){
if(t[i].y<350 && t[i].y>50 &&t[i].x>50 &&t[i].x<250 ){putpixel(t[i].x,t[i].y,2);} else {putpixel(t[i].x,t[i].y,15);}
}
setcolor(9);
circle(t[8].x,t[8].y,10);
getch();
closegraph();
}
 
void zag(){
printf("\n Vikonav Kupchuk Oleksandr\n");
printf("\n Variant #5 \n");
printf("\n 1:Pobuduvaty ta protabulyuvaty romashku\n");
printf("\n 2:Pobuduvaty pryamokutnik ta tochki \n");
}
main(){
system("color F3");
 
int c;
 
while(c!=4){
printf(" MENU");
printf("\n-----------------");
printf("\n|1 Informaciya |");
printf("\n-----------------");
printf("\n|2 Zavdannya 1 |");
printf("\n-----------------");
printf("\n|3 Zavdannya 2 |");
printf("\n-----------------");
printf("\n|4 Vyhid       |");
printf("\n-----------------\n");
scanf("%d",&c);
if(c==1){zag();}
if(c==2){z1();}
if(c==3){z2();}
return 0;
}
}