preciso de com um programa em pascal

[billy_uazar 0]

bom noite preciso de uma ajuda

 

program AV1;

uses crt;

 

var

vetor: array [1..4] of integer;

troca: integer;

menu,cand,j,i,votos: integer;

 

begin

clrscr;

 

for i:= 1 to 4 do

begin

writeln ('digite seu voto');

readln(vetor);

end;

 

begin

for i:= 1 to 4 do

begin

for j:= 1 to 4 do

begin

if vetor < vetor[j] then

begin

troca:= vetor;

vetor:= vetor[j];

vetor[j]:=troca;

end;

end;

end;

end;

begin

for i:= 1 to 4 do

if vetor = vetor[j] then votos:= vetor+1;

 

for cand:= 1 to 4 do

begin

writeln(' cadidato ',cand, '-> ', votos );

end;

end;

readkey;

end.

 

 

como é o programa :

O Tre precisa de um programa para realizar as apurações das eleições.

O programa irá funcionar da seguinte forma

Existem 10 candidatos,cada candidato tem um numero de 1 á 10

cada eleitor escreve na cedula apenas o numero do candidato

o programa pede a lista de votos,cada elemento da lista possui apenas o numero do candidato.a lista encerra quando é digitado 0 no lugar do voto.

o programa deve imprimir em ordem crescente de votos, os candidatos e o numro de votos de cada um.

 

só conseguir fazer até essa parte..

preciso entregar ele até a 00:00 se alguem poder me ajudar eu agradeço!! obrigado

 

obs: ágora só pode ser com assunto até vetor

[gustavvo 0]

Acho que você deveira declara um constante de vetor de strings com o nome dos candidatos, em seguida, em outro vetor computava os votos, mas parece que já se foi a hora de entregar...Se ainda quiser a resposta posta novamente