So wie die Daten aussehen, würde ich Idefix' Ansatz bevorzugen.
Die sehr konservative Möglichkeit wäre z.b.
Delphi-Quellcode:
readln(f,Satz);
if (length(satz)>0) and (Satz[1]='O') then begin
if pos('-',satz)>0 then
satz:=copy(satz,2,pos('-',satz)-1);
if pos('-',satz)>0 then
satz:=copy(satz,2,pos('+',satz)-1);
pruflist.add(satz);
end;
wobei pruflist eine Stringliste ist.
Du solltst diese dan von 0.. .count durchgehen und die entsprechenden integerwerte vergleichen.
Eine andere Möglichkeit ist es zB. mit altsatz und aktsatz zu operieren.
Gruß
K-H