Помогите в паскале составить программу даны 3 числа если среди них больше чётных тО числа удвойте иначе прибавить к числам 1

Const N = 3;var a: array[1..N] of integer;i, x: integer;beginx:=0;for i:=1 to N do beginread(a[i]);if a[i] mod 2 = 0 thenx:=x+1;end;if 2*x >= N thenfor i:=1 to N do begina[i]:=a[i]*2;writeln(a[i]);endelsefor i:=1 to N do begina[i]:=a[i]+1;writeln(a[i]);end;end.