Wie kann ich in Pascal kürzen?

[Sofa5000]

Ich bins wieder schon wieder mit einem Pascal Problem!
Ich habe folgendes:

Delphi-Quellcode:

begin
     write('Gib den Nenner ein : ');
     readln(nenner);
     write('Gib den Zähler ein : ');
     readln(zahler);
     write('Gib das Rechenzeichen ein : ');
     readln(zeich);
     write('Gib den Zweiten Nenner ein : ');
     readln(nenner2);
     write('Gib den Zweiten Zähler ein : ');
     readln(zahler2);
     teiler:=zahler * zahler2;
     if zeich = '+' then begin
        x:=teiler div zahler;
        y:=teiler div zahler2;              
        nenner:=nenner * x;
        nenner2:=nenner2 * y;
        nennerges:=nenner + nenner2;
        writeln(nennerges);
        writeln(teiler);
     end;

Das ist ein Teil von einem Programm es funktoniert perfekt das Ergebniss stimmt auch aber es soll auch gekürzt werden! Wie geht das?

Danke

[edit=sakura][Delphi]-Tags gesetzt. Mfg, sakura[/edit]