program data0;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  WinApi.Windows, System.Types, System.SysUtils, System.IOUtils;

type
  TXY = record
    X, Y: Extended;
  end;

  TCoords = array of TXY;

var
  FloatFormat: TFormatSettings;

function ParseData(Data: PChar): TCoords;
type
  TState = (stNone, stReady, stFirst, stSecond, stDone);
var
  First: PChar;
  Value: string;
  Index: Integer;
  State: TState;
  Coord: TXY;
begin
  State := stReady;
  Index := 0;
  First := Pointer($FFFFFFFF);
  while Data^ <> #0 do begin
    case Data^ of
      '(': begin
            State := stFirst;
            First := Data + 1;
           end;
      ',': begin
             Inc(State);
             if State = stSecond then begin
               SetString(Value, First, Data - First);
               Coord.X := StrToFloat(Trim(Value), FloatFormat);
               First := Data + 1;
             end;
           end;
      ')': begin
             Inc(State);
             SetString(Value, First, Data - First);
             Coord.Y := StrToFloat(Trim(Value), FloatFormat);
             First := Pointer($FFFFFFFF);
           end;
    end;
    Inc(Data);
    if State = stDone then begin
      if Index >= Length(Result) then
        SetLength(Result, Index + 4);
      Result[Index] := Coord;
      State := stNone;
      Inc(Index);
    end;
  end;
  if Index < Length(Result) then
    SetLength(Result, Index);
end;

procedure ParseFile(const Contents: TStringDynArray);
var
  Line: string;
  Coords: TCoords;
  XY: TXY;
begin
  for Line in Contents do begin
    if StrLIComp(PChar(Line), 'Data0=', 6) = 0 then begin
      Coords := ParseData(PChar(Line) + 6);
      WriteLn('Line: ', Line, sLineBreak);
      for XY in Coords do
        WriteLn('X: ', XY.X:8:5, ' Y: ', XY.Y:8:5);
      WriteLn;
    end;
  end;
end;

var
  Contents: TStringDynArray;
begin
  SetConsoleOutputCP(1251);
  try
    FloatFormat := TFormatSettings.Create;
    FloatFormat.DecimalSeparator := '.';
    Contents := TFile.ReadAllLines('D:\Projects\Test\test.txt');
    ParseFile(Contents);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.