Помогите, пожалуйста, с задачей по информатике в Паскаль! Условие: Обусловьте, имеется

Program n1;
const n=7;
var x: array [1..n] of integer;
a,b,c,i: integer;
begin
writeln('ввод массива: ');
for i:=1 to n do
begin
write('введите ',i,' элемент массива: ');
readln(x[i]);
end;
write('введите числа а,b,c: ');
readln(a,b,c);
if (x[i] mod a=0) and (x[i] mod b=0) and (x[i]lt;gt;c) then writeln('есть такое число')
else writeln('в массиве нету такового числа');
end.