Problem beim kürzen von Brüchen

[TonyR]

Ich habe deinen Code mal bei mir eingefügt und es jetzt komplett rausfinden können, wo der Fehler liegt!

Delphi-Quellcode:

procedure B_kuerzen (ErgebnisZaehler, ErgebnisNenner : Integer);
var ggTeiler:integer;
begin
if (ErgebnisZaehler <> 0) AND (ErgebnisNenner <> 0) then
begin
  ggTeiler := ggT(ErgebnisZaehler, ErgebnisNenner);
  ErgebnisZaehler := ErgebnisZaehler DIV ggTeiler;
  ErgebnisNenner := ErgebnisNenner DIV ggTeiler;
end;
end;

Jetzt gehts! Es liegt wirklich daran, dass eine Variable nicht gleich heißen darf, wie eine Funktion!

Edit: Ich hab mal diesen Parameter ganz weggenommen... den brauchst du doch gar nicht