Найти среди последовательности n чисел чётные числа после первой единицы — Pascal(Паскаль)

uses crt;
var
  c:char;
  n,i,k:integer;
begin
clrscr;
Write('Сколько символов вводить? n=');
readln(n);
i:=0;
repeat
  c:=readkey;
  i:=i+1;
  if c='1' then k:=1;
  if(k=1)and(ord(c) mod 2=0) then Write(c);
  if i=n then
    begin
     writeln('  Ввод окончен, нажмите Enter!');
     readln;
    end;
until i=n;
end.