Exercicio Kneippopolis

Faca um programa para apontar os resultados de uma pesquisa eleitoral para presidente da republica de Kneippopolis, o mais novo pais da America do Sul. Os candidatos são: Zico, Ricardo Kneipp, Obina e Geninho. Escreva o total e o percentual de votos de cada candidato. A seguir escreva o nome do novo presidente do pais com maior IDH do planeta.


Program Pzim ; KNEIPOPOLIS
var
voto:char;
cont,somaZ,somaR,somaO,somaG,somaN,maior:integer;
percZ,percR,percO,percG:real;
nomepres:string;
Begin
maior:=0;
writeln('Pesquisa eleitoral para presidente da república de Kneippópolis');
writeln;
writeln('Os candidatos são: Zico, Ricardo Kneipp, Obina e Geninho');
writeln;
for cont:=1 to 10 do
begin
writeln('Dê seu voto:Zico - Z, Ricardo Kneipp - R, Obina - O, Geninho - G');
read(voto);
clrscr;
case voto of
'Z' : somaZ:= somaZ+1;
'R' : somaR:= somaR+1;
'O' : somaO:= somaO+1;
'G' : somaG:= somaG+1;
'z' : somaZ:= somaZ+1;
'r' : somaR:= somaR+1;
'o' : somaO:= somaO+1;
'g' : somaG:= somaG+1;

else
writeln('Seu voto foi invalido');
end;
if (somaZ>maior) then
begin
maior:=somaZ;
nomepres:='Zico';
end;
if (somaR>maior) then
begin
maior:=somaR;
nomepres:='Ricardo Keneipp';
end;
if (somaO>maior) then
Begin
maior:=somaO;
nomepres:='Obina';
end;
if (somaG>maior) then
begin
maior:=somaG;
nomepres:='Geninho';
end;

end;
percZ:=(somaZ/10)*100;
percR:=(somaR/10)*100;
percO:=(somaO/10)*100;
percG:=(somaG/10)*100;
clrscr;
writeln('O percentual de fotos recebidos pelo candidato Zico foi:',percZ:2:2,'% e o total de votos foi:',somaZ);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Ricardo Kneipp foi:',percR:2:2,'% e o total de votos foi:',somaR);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Obina foi:',percO:2:2,'% e o total de votos foi:',somaO);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Geninho foi:',percG:2:2,'% e o total de votos foi:',somaG);
writeln;
Writeln('O presidente com mais votos foi o ',nomepres,', com ',maior,' votos.');
End.