Pascal/Turbo Pascal - Cargue un vector A con N valores aleatorios enteros entre 1 y 1000

uses crt;

var

	lista:array[1..100] of integer;

	opc:byte;

	n:integer;

{-------------------------------------------------------}

procedure cargar;

var

	i,num:integer;

begin

	randomize;

	write('Cuantos numeros desea en el array: ');

	readln(n);

	for i:=1 to n do begin

		num:=random(1000);

		lista[i]:=num;

	end;

	{Mostrar array}

	for i:=1 to n do

		write(lista[i],' ');

end;

{--------------------------------------------------------------}

procedure buscar;

var

	i,valor:integer;

begin

	write('Ingrese valor a buscar: ');

	readln(valor);

	for i:=1 to n do begin

		if lista[i] = valor then

			writeln('Valor encontrado');

	end;

end;

{----------------------------------------------------------}

{principal}

begin

	repeat

		writeln('M E N U');

		writeln;

		writeln('1. Cargar Vector');

		writeln('2. Mostrar suma de pares e impares');

		writeln('3. Buscar valor');

		writeln('4. Salir');

		writeln;

		write('Digite una opcion: ');

		readln(opc);

		case opc of

			1:	cargar;

			{2:	suma pares e impares}

			3:	buscar;

		end;

	until opc > 3;

end.