program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, System.Generics.Collections;

Type
  TValues = TList<string>;
  TestBase = TList<TValues>;

function Test(const str: string): TestBase;
label _to;
var
  p: PChar;
  Skip, pos, posa, I, m, c: Integer;
  sc: Byte;
  value: string;
  values: TValues;
begin
  Result := TestBase.Create;
  p := Pointer(str);

_to:
  pos := 0;
  while ((p + pos)^ <> #0) do
  begin
    if (((p + pos)^ = #13) and ((p + pos + 1)^ = #10)) then
    begin
      Skip := 2;
      Break;
    end
    else if ((p + pos)^ = #13) or ((p + pos)^ = #10) then
    begin
      Skip := 1;
      Break;
    end;
    inc(pos);
  end;
  if pos <> 0 then
  begin
    values := TValues.Create;
    sc := 0;
    m := 0;
    for I := 0 to pos do
    begin
      case sc of
        1:
          if ((p[I] = '"') and (p[I - 1] <> '\')) or (I = pos) then
          begin
            c := I - m - 1;
            if c <> 0 then
            begin
              SetLength(value, c);
              Move(p[m + 1], value[1], c * SizeOf(char));
              values.Add(value);
            end;
            m := I + 2;
            sc := 2;
          end;
        2:
          if p[I] = ',' then
            sc := 0;
      else
        if (sc <> 3) and (sc <> 1) and (p[I] = '"') then
          sc := 1
        else if (p[I] = ',') or (I = pos) then
        begin
          c := I - m;
          if c <> 0 then
          begin
            SetLength(value, c);
            Move(p[m], value[1], c * SizeOf(char));
            values.Add(value);
          end;
          m := I + 1;
          sc := 0;
        end
        else
          sc := 3;
      end;
    end;

    inc(p, pos + Skip);

    Result.Add(values);

    goto _to;
  end;
end;

var
  TestB: TestBase;
  I, r: Integer;
  v: TValues;

begin
  try
    TestB := Test(

      '1997,Ford,E3"50,"ac, \" abs, moon",3000.00' + #13 +
      '1999,Chevy,"Venture «Extended Edition»","",4900.00' + #13 +
      '1996,Jeep,Grand Cherokee,"MUST SELL! air, moon roof, loaded",4799.00');

    for I := 0 to TestB.Count - 1 do
    begin
      v := TestB[I];
      for r := 0 to v.Count - 1 do
        Writeln(v[r]);
      Writeln('--------------');
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, System.Generics.Collections;

Type
  TValues = TList<string>;
  TestBase = TList<TValues>;

function Test(const str: string): TestBase;
label _to;
var
  p: PChar;
  Skip, pos, posa, I, m, c, len: Integer;
  sc: Byte;
  value: string;
  values: TValues;
begin
  Result := TestBase.Create;
  len := Length(str);
  p := Pointer(str);

_to:
  pos := 0;
  while ((p + pos)^ <> #0) do
  begin
    if (p + pos)^ = '"' then
      if sc = 1 then
        sc := 0
      else
        sc := 1;

    if (sc <> 1) and (((p + pos)^ = #13) and ((p + pos + 1)^ = #10)) then
    begin
      Skip := 2;
      Break;
    end
    else if (sc <> 1) and ((p + pos)^ = #13) or ((p + pos)^ = #10) then
    begin
      Skip := 1;
      Break;
    end;
    inc(pos);
  end;
  if pos <> 0 then
  begin
    values := TValues.Create;
    sc := 0;
    m := 0;
    for I := 0 to pos do
    begin
      case sc of
        1:
          if ((p[I] = '"') and (p[I - 1] <> '\')) or (I = pos) then
          begin
            c := I - m - 1;
            if c <> 0 then
            begin
              SetLength(value, c);
              Move(p[m + 1], value[1], c * SizeOf(char));
              values.Add(value);
            end;
            m := I + 2;
            sc := 2;
          end;
        2:
          if p[I] = ',' then
            sc := 0;
      else
        if (sc <> 3) and (sc <> 1) and (p[I] = '"') then
          sc := 1
        else if (p[I] = ',') or (I = pos) then
        begin
          c := I - m;
          if c <> 0 then
          begin
            SetLength(value, c);
            Move(p[m], value[1], c * SizeOf(char));
            values.Add(value);
          end;
          m := I + 1;
          sc := 0;
        end
        else
          sc := 3;
      end;
    end;

    inc(p, pos + Skip);
    dec(len, pos + Skip);

    Result.Add(values);

    if len >= 0 then

      goto _to;
  end;
end;

var
  TestB: TestBase;
  I, r: Integer;
  v: TValues;

begin
  try
    TestB := Test(

      '1997,Ford,E3"50,"ac, \" abs, moon",3000.00' + #13 +
      '1999,Chevy,"Venture «Extended Edition»","",4900.00' + #13 +
      '1996,Jeep,Grand Cherokee,"MUST SELL! air, moon roof, loaded",4799.00');

    for I := 0 to TestB.Count - 1 do
    begin
      v := TestB[I];
      for r := 0 to v.Count - 1 do
        Writeln(v[r]);
      Writeln('--------------');
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.