Code:
....
6 if (Datei[f].Jahr=w) and (Datei[f].Monat=x) then begin
7 if (x=12) then begin
8 a:=1;
9 b:=w+1;
....
ich versteh nicht, warum du bei der zweiten if abfrage nochmal nach x fragst ?
bei der ersten müsste sie doch bekannt sein ?!!!
Was willst du überhaupt mit diesem Algo ?
Willst du prüfen, ob bei dieser Struktur "Datei" der Monat, nehme ich jetzt mal so an, schon 12 ist oder was ?
Wenn ja was wird da gemacht ? Nach jedem Durchgang der f-Schleife wird, wenn es zutrifft, a auf 1 gesetzt !
Ich würd das anders machen ...
MfG Franz