program test;

 

const

  N = 100;

type

  TComplex = record

    Re, Im: integer

  end;

  TArray = array [0..N - 1] of TComplex;

const

  S: string = '(127;298) (-14;-28) (22;15) (-72;-91)';

 

  function GetNumber(const AStr: string; var AStartPos: integer;

  var ANumber: integer): boolean;

  var

    i: integer;

    R, Sign: integer;

  begin

    {пропускаем разделители}

    i := AStartPos;

    while i <= length(AStr) do

    begin

      if (AStr[i] in ['0'..'9', '-']) then

        break;

      Inc(i);

    end;

    {если цифры не встретились, то вернуть false}

    if i > length(AStr) then

    begin

      AStartPos := i;

      GetNumber := False;

      exit;

    end;

    {т.к. цифры встретились - получаем число}

    Sign := 0;

    if AStr[i] = '-' then

    begin

      Inc(i);

      Sign := -1;

    end;

    R := 0;

    while i <= length(AStr) do

    begin

      if not (AStr[i] in ['0'..'9']) then

        break;

      R := R * 10 + byte(AStr[i]) - byte('0');

      Inc(i);

    end;

    R := (R xor Sign) - Sign;

    AStartPos := i;

    ANumber := R;

    GetNumber := True;

  end;

 

var

  StartPos: integer;

  Vector: TArray;

  Len: integer;

  i: integer;

begin

  {ввод массива}

  Len := 0;

  StartPos := 1;

  repeat

    if not GetNumber(s, StartPos, Vector[Len].Re) then

      break;

    if not GetNumber(s, StartPos, Vector[Len].Im) then

      break;

    Inc(Len);

  until StartPos > length(s);

  {тестовая печать}

  writeln(s);

  writeln('Len=', Len);

  for i := 0 to Len - 1 do

    writeln(Vector[i].Re, ' ', Vector[i].Im);

end.