Ребят, помогите, очень безотлагательно нужна помощь в информатике)Задание:Пускай нам задан масив

Program n_1;

var a: array [1..12] of integer; i, n, x:integer;

begin

   n:=-1;

   for i:=1 to 12 do read(a[i]);

   readln(x);

   for i:=1 to 12 do if x=a[i] then begin n:=i; writeln('Yes'); Writeln(n); break; end;

   if n=-1 then writeln('No');

end.

program numbers;

var x, i, c: integer;

a: array[1..12] of integer;

begin

c:=-1;

write('Введите массив.');

for i:=1 to 12 do readln(a[i]);

writeln('Введите число для сопоставления');

readln(x);

for i:=1 to 12 do if a[i]=x then c:=i;

if c=-1 then write('Массив не содержит введённое число') else write('Число стоит на ',c,' месте.');

end.