Pascal/Turbo Pascal - leer un numero y buscarlo en el vector x

{Busqueda secuencial}

uses crt;

type

	vector=array[1..80] of integer;

var

	x:vector;

	i,num,pos:integer;

	encontro:boolean;

begin

	clrscr;

	randomize;

    {llenar vector x con 80 elementos, numeros aleatorios}

    {del 1 al 100}

	for i:=1 to 80 do

		x[i]:=random(100);

     for i:=1 to 80 do

		write(x[i],' ');

     writeln;

     write('Ingrese un numero del 1-100: ');

     readln(num);

	for i:=1 to 8

	0 do

	begin

		if  x[i] = num then begin

			encontro:=true;

			pos:=i;

            break;

		end

		else

			encontro:=false;

	end;

	if encontro then

		writeln('se encontro en la posicion ',pos)

	else

		writeln('no se encontro');

end.