Pascal/Turbo Pascal - problema

Presento un pequeño problema por favor ayudenme
Program acrividad;
uses crt;
var
edad,c5,c4,c3,c2,c1,edades,io,pa,z:INTEGER;
a,ve,ex : char;

Begin
clrscr;
c1 := 0;
c2 := 0;
c3 := 0;
c4 := 0;
c5 := 0;
repeat
writeln ('Por favor indicanos tu edad');
read (edad);
if edad >= 18 then
begin
writeln('Por favor indicanos su nacionalidad');
writeln('ve o ex');
read (a);
if a=ve then
begin
writeln('Por favor indicanos que candidato desea votar');
writeln('1: candidato HCF');
writeln('2: candidato HCR');
writeln('3: candidato MM');
writeln('4: candidato LP');
writeln('5: candidato KZ');
read (io);
case io of
1:
begin
c1:=c2+1;
end;
2:
begin
c2:=c2+1;
end;
3:
begin
c3:=c3+1;
end;
4:
begin
c4:=c4+1;
end;
5:
begin
c5:=c5+1;
end;
end;
end
else
begin
writeln('No puede votar usted no es venezolano');
end;
end
else
begin
writeln('Eres menor de edad no puedes votar');
end;
writeln('¿Todavia hay personas en espera?');
writeln('1:si');
writeln('2:no');
read(io);
until io:=2
writeln('el candidato HCR obtuvo' ,c2 'votos');
writeln('el candidato MM obtuvo',c3'votos');
writeln('el candidato LP obtuvo',c4'votos');
writeln('el candidato KZ obtuvo',c5'votos');
mayor:=c1;
if c2>mayor then
begin
mayor :=2;
end;
if c3>mayor then
begin
mayor :=3;
end;
if c4>mayor then
begin
mayor :=4;
end;
if c5>mayor then
begin
mayor :=5;
end;
writeln('El ganador obtuvo',mayor);
readkey;
end.

Hola, no entiendo lo que quieres. Podrias poner el enunciado del problema.
Salu2.

Necesito hacer un programa que me indique el porcentaje de votos de 5 candidatos
se tiene que votare a los que no son mayores de edad o extranjero

Aqui te dejo una versión que probablemente haga lo que necesitas. Quedan temas pendientes como formatear correctamente el texto, resolver el caso de empates,... pero eso te lo dejo para que lo pases bien.


Suerte.

program blink;
uses crt;
var
conA,
conB,
conC,
conD,
conE,
conNULO: integer;



procedure resultado(c1,
c2,c3,c4,c5,nulos:integer);
function porcentaje(total,can:integer): real;
begin
porcentaje := (can / total) * 100;
end;

var
re : array[1..7] of integer;
nombre : array[1..7] of string;
todo, tem, i , j : Integer;
temnom : string;


begin
nombre[1] := 'Candidato A';
nombre[2] := 'Candidato B';
nombre[3] := 'Candidato C';
nombre[4] := 'Candidato D';
nombre[5] := 'Candidato E';
nombre[6] := 'VOTOS NULOS';
nombre[7] := ' TOTAL ';

todo := 0;
todo := c1+c2+c3+c4+c5+nulos;


re[1] := c1;
re[2] := c2;
re[3] := c3;
re[4] := c4;
re[5] := c5;
re[6] := nulos;
re[7] := todo;


for i:=1 to 4 do
for j:= i+1 to 5 do
if re[i] < re[j] then
begin
tem := re[i];
temnom := nombre[i];

re[i] := re[j];
nombre[i] := nombre[j];

re[j] := tem;
nombre[j] := temnom;

end;

Writeln('-------------------------------------------');
Writeln('| Nombres | N° Votos | % |');
Writeln('-------------------------------------------');

for i := 1 to 6 do
begin
Writeln('| ',nombre[i],' |' ,re[i]:9, ' | ',porcentaje(todo,re[i]):9:2,'% |');
end;
Writeln('-------------------------------------------');
Writeln('| ',nombre[7],' |' ,re[7]:9, ' | ',porcentaje(todo,re[7]):9:2,'% |');
Writeln('-------------------------------------------');



end;


begin
clrscr();
(*
supongase que se tienen
la cantidad de votos
de cada candidato y
los votos nulos

*)

conA := 50;
conB := 100 ;
conC := 130;
conD := 101;
conE := 90;
conNULO := 0;


resultado(conA,conB,conC,conD,conE,conNULO);


end.