В случайном массиве, если ввести элемент для поиска, которого нет, то вылетает ошибка

uses crt;
const nmax=1000;
var a:array[1..nmax] of integer;
    i,n,c,idxi,k:integer;
    p:real;
    
Begin
  writeln('Случайный ввод массива? 1[да]/0[нет]:');
  Readln(c);
  if (c=1) then                {если '1', то выполнить заполнение}
    begin
      n:=1000;                     {количество элементов массива}
      for i:=1 to n do a[i]:=Random(100); {присвоение элементам  рандомных значений}
      writeln('Случайный массив');
      for i:=1 to n do write(a[i],' ');   {вывод исходного массива}
      writeln
      end
  else                                     {если '0'}
    begin
      writeln('Введите размер массива');
      Readln(n);                           {ввод размера массива}
      Writeln('Введите массив');
      for i:=1 to n do read(a[i]);          {ввод значений элементов массива}
      Writeln('Результат ввода');
      for i:=1 to n do write(a[i]);         {вывод исходного массива}
      Writeln;
    end;
 write('Введите символ = ');
  readln(p);
  i:=1;
  while (i<=n)and(a[i]<>p) do 
 
  Inc(i);
if a[i]=p then 
begin
idxi:=i;
writeln('Символ ',p,' есть его позиция i=',idxi)
end
else
begin
writeln('Символа ',p,' нету..');
end;
 
end.

i:=1;
  while (i<=n)and(a[i]<>p) do 
 
  Inc(i);
if  ...

i:=0;
  while (i<n)and(a[i]<>p) do 
 
  Inc(i);
if

 while (i<=n)and(a[i]<>p) do 
  Inc(i);
if a[i]=p then

i:=1;
  while (i<=n)and(a[i]<>p) do 
 
  Inc(i);

 if i>=n then i:=n;

const nmax=1000;
var a:array[1..nmax] of integer;
    i,n,c,idxi,k:integer;
    p:real;
    
Begin
  writeln('Случайный ввод массива? 1[да]/0[нет]:');
  Readln(c);
  if (c=1) then                {если '1', то выполнить заполнение}
    begin
      n:=1000;                     {количество элементов массива}
      for i:=1 to n do a[i]:=Random(100); {присвоение элементам  рандомных значений}
      writeln('Случайный массив');
      for i:=1 to n do write(a[i],' ');   {вывод исходного массива}
      writeln
      end
  else                                     {если '0'}
    begin
      writeln('Введите размер массива');
      Readln(n);                           {ввод размера массива}
      Writeln('Введите массив');
      for i:=1 to n do read(a[i]);          {ввод значений элементов массива}
      Writeln('Результат ввода');
      for i:=1 to n do write(a[i]);         {вывод исходного массива}
      Writeln;
    end;
 write('Введите символ = ');
  readln(p);
  i:=1;idxi:=0;
  while (i<n) do 
if a[i]=p then 
begin
idxi:=i;
writeln('Символ ',p,' есть его позиция i=',idxi);
break;
end
else inc(i);
if idxi=0 then 
writeln('Символа ',p,' нету..');
 
 
end.