PROCEDURE Lista(reg : registertyp);
VAR saldotemp : real;
	x, idx, i : integer;
	saldo : real;
	tmp : kundtyp;
BEGIN

	for i := 1 to reg.antal do begin
		idx := 0;
		saldo := 0;
	
		for x := i to reg.antal do begin
			if saldo < reg.kund[x].saldo then begin
				saldo := reg.kund[x].saldo;
				idx := x;
			end;
		end;
			
		if idx <> 0 then begin
			tmp := reg.kund[i];
			reg.kund[i] := reg.kund[idx];
			reg.kund[idx] := tmp;
		end;
	end;
	
	for i := 1 to reg.antal do begin
		writeln('Kund: ', reg.kund[i].namn, '. Saldo: ', reg.kund[i].saldo);
	end;
END;