1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

while (rest > 0) and (MarktPosIX >= i) do
     begin;
       If Marktpos[i].Quali=q then
       begin;
         If Marktpos[i].Anz >= Rest then
         Begin
         // angebot kann nachfrage decken
           Quali[q].preis:=Quali[q].preis+rest*MarktPos[i].Preis;
           Rest:= 0;
           memo1.lines.Add('ok '+inttostr(q)+floattostr(Quali[q].preis)+'  '+inttostr(rest));
         End
         else
         begin;
         // angebot kann nachfrage nicht decken
           Quali[q].preis:=Quali[q].preis+MarktPos[i].anz*MarktPos[i].Preis;
           Rest:=Rest-Marktpos[i].Anz;
           memo1.lines.Add('nok '+inttostr(q)+floattostr(Quali[q].preis)+'  '+inttostr(rest));
         end;
       end;
       inc(i);
     end;
     If rest > 0 then
     begin;                    

1:
2:
3:
4:
5:

procedure TForm2.ExtractedMethod;
begin
  begin
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

program test;
begin
  if ausdruck then
    begin
      anweisung1;
      anweisung2       // hier kommt eigentlich kein ; hin
    end
  else
    anweisung3        //hier auch nicht da letzter befehl for end
end.