מוזר רצח אני דווקא מקמפל דיי הרבה ב C \ C++ ופרל

ועכשיו הפסקל עושה לי בעיות ואין לי מושג למה

אממ מי שמבין בבקשה לעזור לי לתקן

קוד:

program ghghg;
uses Graph;

var
 Gd, Gm: Integer;
 Radius: Integer;
 x,y,z: real;
begin

 Gd := Detect;
 InitGraph(Gd, Gm, 'c:\tp7\bgi ');

  settextstyle(8,horizDir,2);
	 writeln (' 888b	 d		    888			 888	 ');
	 writeln (' 88	  ');
	 writeln (' 88888b d8		    888			 888	 ');
	 writeln (' 888Y8888b    d88b	 888  888 ');
	 writeln (' 8Y8b   888  88P ');
	 writeln (' 88888888888   888888K  ');
	 writeln (' 88b ');
	 writeln (' 888 ');
   outtextxy(80,120, ' Own This Work ! ');
   writeln('This program is going to teach you How calc a cirlce size! ');
   writeln('My program will multiply the Radius  that the user will insert , with the Pai ');
   writeln('And then the User will get the circle size with numberz and on screnn circle ');
   writeln('The radius is the line between the center of the circle into it ');
   writeln('Please insert your Radius ');
   readln(x);
   z:=3.141592;
   y:=z*x ;
   Outtextxy(20,120, 'The Circle Size is : 'y  );



 if GraphResult <> grOk then
   Halt(1);
   setbkcolor(7);
   Circle(200, 300, y );
 Readln;
 CloseGraph;
end.