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

Программа поиска элемента в произвольном массиве:const n=10;var a:array[1..n+1] of integer;p,i:integer;beginRandomize;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   5p = 13Искомый элемент найден, его номер = 4Пример 2:Исходный массив:  20   4   5  12  14  10  11  16  18  20p = 15Искомый элемент не найден