program votacao;

const
n = 4;
c = 3;

var
nomecandidato : array[1..n] of string;
nvotos : array[1..n] of integer;
partido : array[1..n] of string;
contador, soma, vencedor1 : integer;
porc1 : real;
matriz : array[1..n,1..c] of string;

{calculo de porcentagem}
procedure porc (a,b : integer);
	begin
		porc1 := (a/b)*100;
	end;

{{comparacao para o maior}
procedure vencedor (a, b, c, d : integer);
	begin
		if a > b and c and d then 
			vencedor1 := 1;
		if b > a & c & d then 
			vencedor1 := 2;
		if c > a & b & d then 
			vencedor1 := 3;
		if d > a & b & c then 
			vencedor1 := 4;	
	end;			
}
begin
	{zerando a soma}
	soma := 0;

	{entrada dos dados}
	contador := 1;
	while contador < n+1 do
	begin
		writeln ('Entre o nome do candidato ', contador, ' utilize ate 25 caracteres');
		readln (nomecandidato[contador]);
		writeln ();
		writeln ('Entre a sigla do partido do candidato ', contador);
		readln (partido[contador]);
		writeln ();
		writeln ('Entre o numero de votos do candidato ', contador);
		readln (nvotos[contador]);
		
		{soma dos votos}
		soma := soma + nvotos[contador];
		
		{incremento do contador}
		contador := contador+1
	end;
	
	{resultados}
	writeln; 
	writeln ('RESULTADOS:');
	contador := 1;
	while contador < n+1 do
	begin
		porc (nvotos[contador], soma);
		writeln ('[] Candidato: ', nomecandidato[contador]);
		writeln ('* Partido: ', partido[contador]);			
		writeln ('* Porcentagem dos votos: ', porc1:0:2, '%');
		writeln ();
	{incremento}
	contador := contador+1;
	end;
	
end.