FreePascal

[Student_Dead1nS1de]

Помогите, пожалуйста, переделать программу из PascalABC во ФриПаскаль.
uses Graph;

procedure RLine(x, y, x1, y1: real) := RLine(Round(x), Round(y), Round(x1), Round(y1));

function GetAngle(x, y, x2, y2: real): real;
begin
var angle := Abs(RadToDeg(ArcTan((y2 - y) / (x2 - x))));
if (x2 = x) and (y2 = y) then
Result := 0
else
if x2 > x then
if y2 > y then Result := angle else Result := 360 - angle
else
if y2 > y then Result := 180 - angle else Result := 180 + angle;
end;

function Distance(x, y, x1, y1: real) := Sqrt(Sqr(x1 - x) + Sqr(y1 - y));

var m: integer;
procedure Draw(x, y, x1, y1: real);
begin
var r := Distance(x, y, x1, y1);
if r < 4**m then
RLine(x, y, x1, y1)
else
begin
var angle := GetAngle(x, y, x1, y1);
var angleP := DegToRad(angle + 90);
var angleM := DegToRad(angle - 90);
r /= 4;
var dx := (x1 - x) / 4;
var dy := (y1 - y) / 4;
var xA := x + dx;
var yA := y + dy;
var xB := xA + dx;
var yB := yA + dy;
var xC := xB + dx;
var yC := yB + dy;
var x2 := xA + r * Cos(angleP);
var y2 := yA + r * Sin(angleP);
var x3 := xB + r * Cos(angleP);
var y3 := yB + r * Sin(angleP);
var x4 := xB + r * Cos(angleM);
var y4 := yB + r * Sin(angleM);
var x5 := xC + r * Cos(angleM);
var y5 := yC + r * Sin(angleM);
Draw(x, y, xA, yA);
Draw(xA, yA, x2, y2);
Draw(x2, y2, x3, y3);
Draw(x3, y3, xB, yB);
Draw(xB, yB, x4, y4);
Draw(x4, y4, x5, y5);
Draw(x5, y5, xC, yC);
Draw(xC, yC, x1, y1);
end;
end;
end.

[macomics]

Ну это задача посложнее чем из картофельного пюре приготовить картошку фри при отсутствии тегов [CODE][/CODE].

   uses Math, Graph;

   procedure RLine(x, y, x1, y1: real);
   begin
      RLine(Round(x), Round(y), Round(x1), Round(y1));
   end;

   function GetAngle(x, y, x2, y2: real): real;
   var angle: real;
   begin
      angle := Abs(RadToDeg(ArcTan((y2 - y) / (x2 - x)))); // Если x2 = x, тогда вы получите деление на 0. Это надо отдельно проверять.
      if (x2 = x) and (y2 = y) then
         Result := 0
      else
         if x2 > x then
            if y2 > y then Result := angle else Result := 360 - angle
         else
            if y2 > y then Result := 180 - angle else Result := 180 + angle;
   end;

   function Distance(x, y, x1, y1: real);
   begin
      Result := Sqrt(Sqr(x1 - x) + Sqr(y1 - y));
   end;

   var m: integer;

   procedure Draw(x, y, x1, y1: real);
   var
      r, angle, andleP, angleM, dx, dy, xA, yA, xB, yB, xC, yC, x2, y2, x3, y3, x4, y4, x5, y5: real;
   begin
      r := Distance(x, y, x1, y1);
      if r < Power(4, m)
         then RLine(x, y, x1, y1)
      else begin
         angle := GetAngle(x, y, x1, y1);
         angleP := DegToRad(angle + 90);
         angleM := DegToRad(angle - 90);
         r /= 4;
         dx := (x1 - x) / 4;
         dy := (y1 - y) / 4;
         xA := x + dx;
         yA := y + dy;
         xB := xA + dx;
         yB := yA + dy;
         xC := xB + dx;
         yC := yB + dy;
         x2 := xA + r * Cos(angleP);
         y2 := yA + r * Sin(angleP);
         x3 := xB + r * Cos(angleP);
         y3 := yB + r * Sin(angleP);
         x4 := xB + r * Cos(angleM);
         y4 := yB + r * Sin(angleM);
         x5 := xC + r * Cos(angleM);
         y5 := yC + r * Sin(angleM);
         Draw(x, y, xA, yA);
         Draw(xA, yA, x2, y2);
         Draw(x2, y2, x3, y3);
         Draw(x3, y3, xB, yB);
         Draw(xB, yB, x4, y4);
         Draw(x4, y4, x5, y5);
         Draw(x5, y5, xC, yC);
         Draw(xC, yC, x1, y1);
      end;
   end;
end.

[Student_Dead1nS1de]

вот такую странную ошибку выдаёт (22,42) Fatal: Syntax error, ":" expected but ; found

[Student_Dead1nS1de]

macomics, вот такую странную ошибку выдаёт
(22,42) Fatal: Syntax error, ":" expected but ; found

[macomics]

   function Distance(x, y, x1, y1: real): real;