1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure step(var Schritt: integer; array1: array of double);


var
 i,t,y     : integer;



 begin
   t:=Schritt;

     begin
        for i:=0 to  499 do
         sprung[i]:= array1[t+1];
          Y: sum (sprung);
          y: y/500;

         if y < Schwelle then
          begin
           t:= pos + 499;
            for i:= 0 to 499 do
             sprung[i]:= array1[t+1];
              Y: sum (sprung);
              y: y/500;

           // Hier soll er weiter das array durchsuchen, also um 500 weiter Werte 
           // versetzen

         if  y >  Schwelle then
          begin
           vergleich;      // Aufruf einer anderen Prozedur
          end;

 end;					

1:
2:
3:

repeat
  {machwas}
until {Bedingung}