Линейный поиск в массиве

uses crt;
  type
    Arr = array[1..1000] of integer;
  var key, i, N: integer;
      A: Arr;
{линейный поиск}
  function lineSearch(A: Arr; key, i: integer): integer;
    begin
      lineSearch:=-1;
        for i:=1 to N do
          if A[i]=key then
            begin 
              lineSearch:=i; exit; end;
            end;
{основной блок программы}
begin
  write('Размер массива > '); readln(N);
  write('Искомый элемент > '); read(key);
  writeln('Исходный массив: '); 
    for i:=1 to N do
      begin
        write('A[',i,']=');
        read(a[i]);
      end;
    writeln;
      if (lineSearch(A, key, i)<0) then writeln('Элемент не найден')
        else writeln('Номер элемента: ', lineSearch(A, key, i));
end.

uses crt;
const nmax=20;
var a:array[1..nmax] of char;
    i,n,idxi,k:integer;
    c:char;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
 for i:=1 to n do
  begin
   a[i]:=chr(random(26)+65);
   write(a[i]:4);
  end;
 writeln;
 write('Ââåäèòå ñèìâîë = ');
  readln(c);   //Вводятся строчные буквы
  k:=0;
 for i:=1 to n do
  if a[i]=c then
   begin
    idxi:=i;
    inc(k);
    break;
   end;
 if k=0 then
  writeln('Ñèìâîëà ',c,' íåòó..')
 else
  writeln('Ñèìâîë ',c,' åñòü åãî ïîçèöèÿ i=',idxi);
end.

uses crt;
const nmax=20;
var a:array[1..nmax] of char;
    i,n,idxi,k:integer;
    c:char;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
 for i:=1 to n do
  readln(a[i]);
 writeln('Ìàññèâ ñèìâîëîâ :');
 for i:=1 to n do
  write(a[i]:4);
 writeln;
 write('Ââåäèòå ñèìâîë = ');
  readln(c);   //Ââîäÿòñÿ ñòðî÷íûå áóêâû
  k:=0;
 for i:=1 to n do
  if a[i]=c then
   begin
    idxi:=i;
    inc(k);
    break;
   end;
 if k=0 then
  writeln('Ñèìâîëà ',c,' íåòó..')
 else
  writeln('Ñèìâîë ',c,' åñòü åãî ïîçèöèÿ i=',idxi);
end.