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.