Selecionar Maior e Menor de 3 Numeros Digitados

program MaiorMenorde3;
  uses crt;
       var
         num1, num2, num3 : integer;
begin
 write(' Digete Numero ');
 readln(num1);
 write(' Digete Numero ');
 readln(num2);
 write(' Digete Numero ');
 readln(num3);
    begin
   if (num1>num2) and (num1>num3) then
   begin
   write(' Maior Numero: ', num1)
   end

   else
     if (num2>num1) and (num2>num3) then
     begin
     write('Maior Numero: ', num2)
     end

     else
       if (num3>num1) and (num3>num2) then
       begin
       write('Maior Numero: ', num3)
       end
     else
     begin
       write('Numeros iguais ', num3)
     end;



     begin
   if (num1<num2) and (num1<num3) then
   begin
   write(' Menor Numero: ', num1)
   end

   else
     if (num2<num1) and (num2<num3) then
     begin
     write('Menor Numero: ', num2)
     end

     else
       if (num3<num1) and (num3<num2) then
       begin
       write('Menor Numero: ', num3)
       end
     else
     begin
       write('Numeros iguais ', num3)
     end;
    end;
     end;

   readkey;
end.