Конечно без модуля, но лучше что-то чем ничего.
Код:
Var a:array[1..1000] of longint;
n:integer; max:longint; i:byte;
begin
randomize;
Writeln('vvedite kol-vo elementow');
repeat
readln(n);
until ((n>=1) and ( n<=1000));
for i:=1 to n do
begin
begin
a[i]:=random(10000);
Write(i,' chlen = ');
Write(' ', a[i],' ');
end;
Writeln;
end;
max:=a[1];
for i:=2 to n do
begin
if a[i]>max
then
max:=a[i];
end;
Writeln('maxmal = ',max);
readln;
end.