Erro do programa Pascalzim 'else não esperado'

[Jadir Ferreira Ferreira]

O erro que está dando no meu pascalzim é 'else não esperado' na linha 32 

 

 

Program Pzim ;
  var Produto: integer;
  var Comprar: string;
      um      : integer;
      Dinheiro : integer;
Begin
   textcolor(20);
   writeln('Bem-vindo ao programa compre roupas 1.0(beta)');
   writeln('Aqui você pode comprar diversos tipos de roupas !');
   writeln('Aperte enter para entrar na loja !');
   readln;
   textcolor(lightgreen);
   clrscr;
   writeln('Aperte 1 para comprar - roupa de praia 20$');
   writeln('Aperte 2 para comprar - t-shirt masculino 10$');
   writeln('Aperte 3 para comprar - camisa popular 12$');
   writeln('Aperte 4 para comprar - fantasia do charizard 50$');
   writeln('Aperte 5 para comprar - fantasia do naruto 20$');
   writeln('Aperte 6 para comprar - cosplay de hataraku 30$');
   read (um);
   if um = 1 then;
   begin
      writeln('Você deseja comprar roupa de praia por 20$?');
      read (comprar);
   end;
   if Dinheiro >= 20 then;
   begin
      writeln('Quantos reais você tem?');
      read(Dinheiro);
      writeln('Produto comprado com sucesso!');
   end
       else
         begin
          writeln('Produto não comprado, dinheiro insuficiente !');
          readln;
         end; 
   
   
   

   

   
End.