Tipul de date Array.

Multimea de valori ale unui tip de date array

este constituita din tablouri.Tablourile  sint formate dintr-un numar fixat de componente de acelasi tip, denupit tip de baza.Tipul de date tablou se defineste printr-o constructie de forma: 

type <Nume tip> = array [T1] of [T2]; unde T1 este tipul indicelui care trebuie sa fie ordinal, iar T2  este tipul componentelor (tipul de baza) care poate fi un tip oarecare.

Problema:
Se da un vector cu (1≤n≤100)componente de tip integer si numar intreg x.Sa se verifice
daca vectorul dat contine componente egale cu x.In cazul afirmativ, sa se afiseze pozitia primei componente (egale cu x).De exemplu, pentru vectorul 4,10,-2,3,-2,4,5 si x=-2 se va afisa "Pozitia 3". iar pentru acelasi vector si x=7 se va afisa "Numarul 7 nu este componenta a vectorului".
Rezolvare:
program Example;
var a:array [1...100] of integer;
    n,i,x: integer;
      f:boolean;
Begin
   ClrScr;
   write ('Numarul de componente: ');
   readln (n);
   Randomize; {Conectarea generatorului de numere aleatoare}
for i:=1 to n do a[i]:=Random(100)-500; {Calculatorul genereaza componentele            vectorului - numere intregi pe intervalul [-500;500)}  
  write('Componenta cautata: ');
  readln(x);
  i:=0;
  i:=false;
repeat
  inc(i);
  f:=(x=a[i]);
  {Daca x=a[i], atunci f ia valoarea true};
until f or (i=n) ;

if f then writeln ('Pozitia ',i) else writeln ('Numarul', x , ' nu este componenta a vecorului' );

{Afiseaza vectorul}
write (a [i], ' ');
readkey;
End.