Pascal podmienka ak lezi v poli... pomoc

var a:array[1..3] of integer; b:array[1..3] of integer;
x,y,i,u,j,z:integer;   
begin
for i:=1 to 3 do
begin
writeln('hrac 1 -zadaj',i,'. cislo pre ktore vyhravas');
readln(a[i]);
end;
for j:=1 to 3 do
begin
writeln('hrac 2 - zadaj',i,'.cislo pre ktore vyhravas');
readln(b[j]);
end;
z:=0;
y:=0;
for u:=1 to 15 do
begin
randomize;
x:= random(6)+1;
writeln('hod c.',u,'- ',x);
if *****a=x***** then inc(z) else inc(y);
end;
writeln('hrac c. 1 ziskal',z,'bodov');
writeln('hrac c. 2 ziskal',y,'bodov');
writeln;
if z>y then writeln('vitaz je hrac c. 1') else
writeln('vitaz je hrac cislo 2');
readln;

end.