Delphi schleifen umschreiben

[xxsasch4xx]

aber
hier stehen ja zwei for schleifen direkt hintereinander

for i:=1 to 4 do
for j:=i+1 to 5 do

ich weiss nicht wie man festlegt das die erste repeat schleife dann nur die erste anweisung durchführt
weil wenn ich ein until unter die erste anweisung der ersten repeat schleife mache dann kommt da ja was durcheinander.

einzelne umschreibungen sind kein problem aber wenn da eine for schleife in der anderen drin ist weiss ich nicht wie das geht