Пожалуйста, помогите, никак не могу решить!
Дан одномерный целочисленный массив S[10]. Значения вводятся с клавиатуры в интервале от -10 до 20. Проверьте есть в массиве элемент, значение которого равно заданному числу N. Значение N вводится с клавиатура. Массив и результат вывести на экран.

var  S: array [1..10] of integer;
  i: byte;
  n: integer;
  flag: boolean = false;
begin
write('N = ');
readln(N);

for i := 1 to 10 do
repeat
  write('S[',i,'] = ');
  readln(S[i]);
until ((S[i] >= -10) and (S[i] <= 20));

write('Исходный массив: ');
for i := 1 to 10 do
begin
  write(S[i], ' ');
  if (S[i] = N) then
    flag := true;
end;

if flag = true then
  writeln(#13 + 'Совпадение найдено.')
else
  writeln(#13 + 'Совпадение не найдено.');

end.