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.
Сея программа хоть что нарисует, только координаты смени (тут ласточка, а другие в инете найти можно)