Дан вектор X[6] и число Y. Переменной A присвоить значение 1, если значение хотя бы одной компоненты xi равно числу Y, и значение 0 в противном случае — Pascal(Паскаль)

var
i,Y,A:integer;
X:array[1..6]of integer;
BEGIN
randomize;
for i:=1 to 6 do X[i]:=random(15);                   {загружаем вектор числами   }

write('Вектор X[');                                  {выводим на экран           }
for i:=1 to 6-1 do write(X[i],'; ');
writeln(X[6],']');
write('Введите число Y=');
readln(Y);

A:=0;
for i:=1 to 6 do if X[i]=Y then A:=1;                {выполняем по условию задачи}
writeln('Число A=',A);
readln;
END.