Помогите.Срочно.Нужны сложные рисунки в паскале.Пожалуйста.

uses   GraphABC; var   x, y: integer;   s: string;   b: boolean; begin   Graphabc.Coordinate.Origin := GraphABC.Window.Center();   Coordinate.SetMathematic();   Coordinate.SetScale(10, 10);   s := '(-5; 4), (-7; 4), (-9; 6), (-11; 6), (-12; 5), (-14; 5), (-12; 4), (-14; 3), (-12; 3), (-11; 2), (-10; 2), (-9; 1), (-9; 0), (-8; -2), (0; -3), (3; -2), (19; -2), (4; 0), (19; 4), (4; 2), (2; 3), (6; 9), (10; 11), (3; 11), (1; 10), (-5; 4)';   foreach a: string in s.Replace('), (', '),(').Split(',') do   begin     X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]);     Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]);     if (b) then       GraphABC.LineTo(X, Y)     else     begin       GraphABC.MoveTo(X, Y);       b := true;     end;   end; end. Сея программа хоть что нарисует, только координаты смени (тут ласточка, а другие в инете найти можно)