Bruchrechenprogramm mit Selbsteingabe

[timmy19]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

randomize;

Zahl1:= random(10)   ;
Zahl2:= random(10)    ;
Zahl3:=random(6)       ;
Zahl4:=random(6)        ;

EditZahl1.Text:= IntToStr(Zahl1) ;
EditZahl2.Text:= IntToStr(Zahl2) ;
EditZahl3.Text:= IntToStr(Zahl3)  ;
EditZahl4.Text:= IntToStr(Zahl4)   ;

end;

procedure TForm1.Button2Click(Sender: TObject);
var Ergebnis,c,d,ggT, gggT,ggTeiler :integer ;
begin

Ergebnis:= Zahl1 + Zahl2 ;

ggT(c,d, gggT) ;

If (IntToStr(Ergebnis) = EditZahl5.Text) and (InttoStr(gggT) = EditZahl6.Text) then
Showmessage('Sehr gut gemacht, weiter so!!!') ;


end;

procedure TForm1.ggT(c,d:integer; var ggTeiler: integer);
var merk: integer;
begin
repeat

merk:= c mod d     ;
c:= d ;
d:=merk

until  d= 0  ;
ggTeiler:=c


end; {of ggT}



end.

So sieht er aus. Bei "ggT(c,d,gggT)"zeigt er mir noch die zwei schon bekannten Fehler an!
Also:
-Operator oder Semikolon fehlt
-Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden

Kann mir da jemand helfen?