Positive Zahlen in negative umwandeln

[ATSV]

Delphi-Quellcode:

function makeNeg(zahl: Integer): Integer;
label 1;
begin
  Result := zahl;
  1: if result >=0 then
  begin
    Result := Result - zahl;
    goto 1;
  end;
end;

hat das schon jemand gemacht?