Pascal program does not show maximum value - counter

Question

Please help me my program just keeps on displaying the last name and number here is the program.
I really dont see what is wrong here but I do hope that you guys may see it please really need some help its killing my brain
Var
Counter:Integer;
MaxValue:Integer;
NumofVotes:Array[1..4]of Integer;
ChristianName:Array[1..4]of String;
Surname:Array[1..4]of String;
WinnerFName:String;
WinnerSName:String;
WinnerParty:String;
CandidateParty: Array[1..4] of String;
begin
FOR Counter:= 1 to 4 Do
If Counter= Counter Then
begin
Writeln ('Please enter Christian name of Candidate ', Counter, ':');
Readln (ChristianName[Counter]);
Writeln ;
Writeln ('Please enter Surname of Candidate ', Counter, ':');
Readln (Surname[Counter]);
Writeln ;
Writeln ('Please enter number of votes received by Candidate ', Counter, ':');
Readln (NumOfVotes[Counter]);
Writeln ;
Writeln ('Please enter party of Candidate ', Counter, ':');
Readln (CandidateParty[Counter]);
end;
IF Counter = 1 THEN
begin
MaxValue:= NumofVotes[Counter];
WinnerFName:= ChristianName[Counter];
WinnerSName:= Surname[Counter];
WinnerParty:= CandidateParty[Counter];
end
ELSE
IF (NumofVotes[Counter]>MaxValue) THEN
begin
WinnerFName:= ChristianName[Counter];
WinnerSName:= Surname[Counter];
MaxValue:= NumofVotes[Counter];
WinnerParty:= CandidateParty[Counter]
end;
Writeln ;
Writeln ('The winner of the elections for this constituency is:');
Writeln ('FirstName: ', WinnerFName, ' Surname: ', WinnerSName);
Writeln ('From the ', WinnerParty);
Writeln (WinnerFName, ' has won with ', MaxValue, ' votes');
Writeln ;
Writeln ;
Writeln ('Press <Enter> to end');
Readln ;
end.

Answer 1

The code seems to lack one pair of begin ... end keyword. As a result, the for instruction ends at the first end keyword, that is just after reading all candidates data. Then the Counter is 4 and the comparision in IF Counter = 1 fails – execution proceeds to ELSE. There the uninitialized MaxValue is probably zero, so the fourth NumofVotes is greater than that, which eventually causes the fourth candidate to be printed.
To make the code do what you expected, add begin just after the FOR ... DO and close it with end just before Writeln ; Writeln ('The winner ... is:');