Составить программу поиска элемента в одновимирному массиве !!! ТУРБО ПАСКАЛЬ ПОЖАЛУЙСТА ОЧЕНЬ НАДО СРОЧНО НАПИШИТЕ КОД

Программа поиска элемента в произвольном массиве: const n=10; var a:array[1..n+1] of integer; p,i:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do  begin  a[i]:=random(21);  write(a[i]:4);  end; writeln; write('p = '); readln(p); a[n+1]:=p; i:=1; while a[i]<>p do i:=i+1; if i<=n  then writeln('Искомый элемент найден, его номер = ',i)  else writeln('Искомый элемент не найден'); end. Пример 1: Исходный массив:    7  17  16  13   0   1  19  20  12   5 p = 13 Искомый элемент найден, его номер = 4 Пример 2: Исходный массив:   20   4   5  12  14  10  11  16  18  20 p = 15 Искомый элемент не найден