String mit Hilfe einer Schleife zerteilen und auslesen

[grenzgaenger]

wo liegt das Problem?

das hier funktioniert problemlos ..

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

const
 cs = '0;207:3|8;108:20|2;1342:67|3;339:16|3;2019:42|0;2397:47|' 
    + '0;1260:84|0;116:29|9;189:36|7;1543:32|6;5802:84|7;1597:3'
    + '0|1;2177:32|4;1660:24|8;1304:27|4;718:14|8;1772:28|7;505'
    + '1:97|4;4668:88|';  

var
 i: integer;
 s: string;
 wert,j: integer;
 dele: set of char = [';',':','|'];
begin
 s := '';
 for I := 1 to length(cs) do
 begin
  if cs[i] in dele then
  begin
   val(s,wert,j);
   if j=0 then
   begin
    s := '';
    writeln('Integer: ', wert);
   end;
  end
  else
  begin
   s := s + cs[i];
  end;
 end; 
 readln;
end.

aber wenn wir keinen code von dir haben, können wir nur raten... und meine kristallkugel hab ich leider vergessen ...