Questão 2 (Para - For)

Questão 2 - Faça um programa para apontar os resultados de uma pesquisa eleitoral para Presidente da república de Kneippópolis, o mais novo país da América do Sul. Os candidatos são:

Program Pzim ;
VAR
voto, zico, kneipp, obina, geninho, perentual : real;
v : integer;
Begin
zico:=0;
kneipp:=0;
obina:=0;
geninho:=0;

Writeln ('tecle 1 para Zico');
writeln ('tecle 2 para Kneipp');
writeln ('tecle 3 para obina');
writeln ('tecle 4 para geninho');
for v := 1 to 10 do
begin
Writeln (' Escreva seu voto');
readln (voto);
end;

if (voto = 1) then
zico := zico +1;
Writeln ('O total de votos para Zico é');
Writeln (zico);

if (voto = 2) then
kneipp := kneipp +1;
Writeln ('O total de votos para Kneipp é');
Writeln (kneipp);

if (voto = 3) then
obina := obina +1;
Writeln ('O total de votos para Obina é');
Writeln (Obina);

if (voto = 4) then
geninho := geninho +1;
Writeln ('O total de votos para Geninho é');
Writeln (geninho);

percentual := geninho + obina + kneipp + zico / 100;
Writeln ('o percentual é' percentual);

End.