получить линейный массив из четных элементов файла

uses crt;
const cif=['0'..'9'];
var
a:array[1..100] of string;
f:text;
i,j:integer;
s:string;
begin
assign(f, '123.txt');
reset(f);
j:=0;
while not eof(f) do
  begin
     read(f, s);
  end;
for i:=1 to length(s) do
begin
  if not(s[i] in cif) then
  begin
    writeln('Файл содержит не целые цифры');
     close(f);
    exit;
  end;
end;
  i:=1;
while i<length(s) do
  begin
     if i mod 2 = 0 then
       begin
         inc(j);
         a[j]:=s[i];
       end;
       inc(i);
  end;
close(f);
write('ОТВЕТ:');
for i:=1 to j do
 begin
   write(a[i]:5);
 end;
end.

var f:text;
i,count:word;
m:array [1..1000] of integer;
begin
 assign(f,'input.txt');
 reset(f);
 count:=0;
 while not eof(f) do
  begin
   read(f,m[count+1]);
   if not eof(f)
    then
     begin
      read(f,m[count+1]);
      inc(count)
     end
  end;
 close(f);
 if count>0
  then
   begin
    writeln('Array:');
    for i:=1 to count do
     writeln(m[i])
   end
  else
   writeln('No array');
 readln;
end.

   if not eof(f)
    then
     begin
      read(f,m[count+1]);
      inc(count)
     end

if m[count+1] mod 2 = 0
 then
  inc(count);