Нужно написать программу которая проверяет, находится ли в массиве введенное с клавиатуры число(методом перебора элементов) — Pascal(Паскаль)

const
 n = 10;
var
 a:array[1..n] of integer;
 i,c:integer;
begin
 for i:= 1 to n do
 readln(a[i]);
 write('c = ');
 readln(c);
 for i:= 1 to n do
 if c = a[i] then begin
   writeln('estj');
   halt;
 end;
 writeln('netu');
end.