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.