Estrutura de repetição

Saber qual o triangulo é:

Program Pzim ;
   Uses CRT;
      Var
        cont:integer;
        x,y,z:real;
 Begin
   Cont:=0;
   repeat
      Begin
       Writeln('Informe tres valores');
       readln(x,y,z);
       if (x<y+z) and (y<x+z) and (z<x+y) then
           if(x=y) and (x=z) then
         begin
             Writeln('O  triangulo é equilatero')       
           end
           else
             if (x=y) or (x=z) or (y=z) then
               begin
                 writeln('O triangulo é Isosceles')
               end
               else
                 begin
                   Writeln('O triangluo é Escaleno')
                 end
                   else  
                   writeln('Não é triagulo');
                   cont:=cont+1;
      end;     
     until cont=3;
 End.

Origem: FASEM