Delphi-Quellcode:
I + 1;
repeat
J := I + 1;
repeat
if a[i] < a[j] then
begin
h:=a[i];
a[i]:=a[j];
a[j]:=h;
end;
J := J + 1;
until J = 5;
I := I + 1;
until I = 4;
in der ersten zeile kommt bei mir eine fehlermeldung!
"anweissung erforderlich, aber ausdruck vom typ 'integer' gefunden"