It skips the first output whenever i print the list, how do i correct this? - freepascal

Question

Whenever i try to print the list of voters (output) with first entering the information for 5 eligible persons named a, b, c , d and e and the other 5 are not eligible named f, g, h, i, j. it outputs b, c, d, e, f as the valid voters when it should be a, b, c, d, e
PROGRAM List_of_Eligible_Voters;
{States whether a person is a valid voter or not}
Const
YOE=2019;
VAR
Felony_Status: string;
Eligibility:ARRAY[1..10] of string;
Name:ARRAY[1..10] OF string;
YOB,Age:integer;
Count:integer;
i:integer;
BEGIN
i:=0;
Count:=0;
FOR i:= 1 TO 10 DO
Begin
Name[i]:='Name';
Eligibility[i]:='Eligibility';
End;
Writeln('Please enter the name of the person.');
Readln (Name[Count]);
Writeln ('Please enter the year of birth of the person.');
Readln (YOB);
Writeln ('Have the person ever been convicted of a felony?()Answer with yes/no.');
Readln (Felony_Status);
While (YOB <> 0) AND (Count<=10) Do
begin
Age:= YOE-YOB;
IF (Age>= 18) AND (Felony_Status = 'no')Then
Eligibility[Count]:= 'yes'
ELSE
Eligibility[Count]:= 'no';
Writeln('Please enter the name of the person.');
Readln (Name[Count]);
Writeln ('Please enter the year of birth of the person.');
Readln (YOB);
Writeln ('Have the person ever been convicted of a felony?()Answer with yes/no.');
Readln (Felony_Status);
COUNT:=COUNT+1;
END;
Writeln ('List of Eligible Candidates');
FOR i:= 1 TO Count DO
begin
IF Eligibility[i]= 'yes' THEN
Writeln (Name[i], '()is eligible to vote.');
END;
readln;
END.

Answer 1

Looks like you're using Count as your Index (i) when writing, then Index as your Index when reading. Count is 0 based, and index is 1 based. Have you tried syncing the two up?