Arbitre de tennis en pascal

bonjour à tous

je tente de programmer en pascal un programme d'arbitre de tennis mais voilà, je coince dès le comptage des points dans un jeu.

voilà ce que j'ai écrit:

Program arb ;

Var joueur1, joueur2 : string ;



Procedure Points;

Var x1, x2, y1, y2, z1, z2, touche, r: integer ;
     x10, x20 : string ;

          Begin

          x1:=0;
          x2:=0;
          y1:=0;
          y2:=0;
          z1:=0;
          z2:=0;
          r:=0;

           Repeat
           read(touche);
           If touche=1 Then
           begin
           x1:=x1+1;
           end
           else If touche=2 Then
           begin
           x2:=x2+1;
           end;

           If x1=0 Then
           begin
           x10:='0';
           end
           else If x1=1 Then
           begin
           x10:='15';
           end
           else If x1=2 Then
           begin
           x10:='30';
           end
           else If x1=3 Then
           begin
           x10:='40';
           end;


           If x2=0 Then
           begin
           x20:='0';
           end
           else If x2=1 Then
           begin
           x20:='15';
           end
           else If x2=2 Then
           begin
           x20:='30';
           end
           else If x2=3 Then
           begin
           x20:='40';
           end;

          If x1=4 Then
             begin
                  if x2<3 Then
                  begin
                  r:=1;
                  end
                  else If x2=3 then
                  x10:='A'; x20:='40';
                  Writeln (x10,'   Points   ',x20);
                  begin
                  read(touche);
                               If touche=1 Then
                               begin
                               r:=1;
                               end
                               else if touche=2 Then

                               begin
                               x1:=3;
                               x10:='40'; x20:='40';
                               end;
                  end;
             end

          else If x2=4 Then
             begin
                  if x1<3 Then
                  begin
                  r:=1;
                  end
                  else If x1=3 then
                  x10:='40'; x20:='A';
                  Writeln (x10,'   Points   ',x20);
                  begin
                  read(touche);
                               If touche=2 Then
                               begin
                               r:=1;
                               end
                               else if touche=1 Then

                               begin
                               x2:=3;
                               x10:='40'; x20:='40';
                               end;
                  end;
             end;

           If r=0 Then
           Writeln (x10,'   Points   ',x20);


           Until r=1;



END;

BEGIN
WriteLN ('      ');
WriteLN ('      ');
WriteLN ('                                  CONFIGURATION  ');
WriteLN ('      ');
WriteLN ('Nom du joueur 1:');
readLN (Joueur1);
WriteLN ('      ');
WriteLN ('Nom du joueur 2:');
readLN (Joueur2);
points ;
END.

ça marche pour gérer les égalités et avantges mais ça coince pour gagner un jeu blanc par exmple...

Si vous pouviez me donner quelques indications pour m'aider à continuer...

merci d'avance.