Pascal/Turbo Pascal - Ayuda números aleatorios< > y posición.

uses crt;

var

	num:array [1..10] of integer;

	posme,posm,mayor,menor,x,i,j:integer;

begin

	clrscr;

	randomize();

	mayor:=0;

	for i:=1 to 10 do begin

		x:=random(1000); {numeros aleatorios desde 0 hasta 1000}

		num[i]:=x;

	end;

	for i:=1 to 10 do

		write(num[i],' ');

	writeln;

	for i:=1 to 10 do begin

		if num[i] > mayor then begin

			mayor:=num[i];

			posm:=i;

		end;

	end;

	menor:=num[1];

	for j:=2 to 10 do begin

		if num[j] < menor then begin

			menor:=num[j];

			posme:=j;

		end;

	end;

	writeln;

	writeln('El mayor es ',mayor,' y esta en la posicion ',posm);

	writeln('El menor es ',menor,' y esta en la posicion ',posme);

end.