Spajanie parnych

//Program si vypýta cifry čísla a pospája z ních číslo len z tých cifier ktoré sú párne
program spajanieparnych;
{$APPTYPE CONSOLE}
uses SysUtils;
type cifry=0..9;
var cf:cifry;
    n,i:byte;
    pcf:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko chcete zadat cifier?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte cifru: ');
      readln(cf);
      if (cf mod 2 = 0) then pcf:=pcf+inttostr(cf);;
    end;
  writeln(pcf);
  readln;
end.