Pascal/Turbo Pascal - Ayuda con ejercicio de pascal

uses crt;

const

	votantes = 1250;

Var

	a: word;

	b: word;

	c: word;

	ganador: word;

	i: word;

	voto: String;

	w: real;

	x: real;

	z: real;

Begin

	clrscr;

	a := 0;

	b := 0;

	c := 0;

	For i:=1 To votantes Do Begin

		Write('Ingrese su voto (a,b,c): ');

		ReadLn(voto);

		case voto of

			'a': a:= a+1;

			'b': b:= b+1;

			'c': c:= c+1;

		End;

	end;

	// candidato ganador

	writeln;

	If (a>b) And (a>c) Then Begin

		ganador := a;

		WriteLn('Ganador candidato A con ',ganador,' votos');

	End

	Else Begin

		If (b>a) And (b>c) Then Begin

			ganador := b;

			WriteLn('Ganador candidato B con ',ganador,' votos');

		End

		Else Begin

			ganador := c;

			WriteLn('Ganador candidato C con ',ganador,' votos');

		End;

	End;

	// porcentaje

	x := (a*100)/votantes;

	w := (b*100)/votantes;

	z := (c*100)/votantes;

	WriteLn('Candidato A ',x:4:2,'%');

	WriteLn('Candidato B ',w:4:2,'%');

	WriteLn('Candidato C ',z:4:2,'%');

End.

Program votaciones;

uses wincrt;

const

	votantes = 1250;

var

	a: word;

	b: word;

	c: word;

	ganador: word;

	i: word;

	voto: char;

	w: real;

	x: real;

	z: real;

begin

	clrscr;

	a := 0;

	b := 0;

	c := 0;

	For i:=1 To votantes Do Begin

		Write('Ingrese su voto (a,b,c): ');

		ReadLn(voto);

		case voto of

			'a': a:= a+1;

			'b': b:= b+1;

			'c': c:= c+1;

                end;

		writeln('Candidato Ganador');

	If (a>b) And (a>c) Then Begin

		ganador := a;

		WriteLn('Ganador candidato A con ',ganador,' votos');

	End

	Else Begin

		If (b>a) And (b>c) Then Begin

			ganador := b;

			WriteLn('Ganador candidato B con ',ganador,' votos');

		End

		Else Begin

			ganador := c;

			WriteLn('Ganador candidato C con ',ganador,' votos');

		End

	End;

 writeln('porcentaje');

	x := (a*100)/votantes;

	w := (b*100)/votantes;

	z := (c*100)/votantes;

	WriteLn('Candidato A ',x:4:2,'%');

	WriteLn('Candidato B ',w:4:2,'%');

	WriteLn('Candidato C ',z:4:2,'%');

End;

end.