найти максимальный элемент одномерного массива

[Серый777]

привет, помогите написать программу.
найти максимальный элемент одномерного массива с помощью опережающего объявления процедур.

[Gray_Jagger]

Вот процедура поиска наибольшего элемента.
Надеюсь остальное уже сделал?

procedure search(var a:myarray, n:integer;)
var i,max:integer;
begin
max:=-32000;
for i:=0 to n do if max<a[i] then max:=a[i];
end;

[Серый777]

Gray_Jaggerя немогу разобраться с опережающим объявлением процедур, вот я набросал, что надо сделать в основной программе?

program op;
type mas=array[1..100]of integer;
var n,i:integer; ar:array[1..100] of integer;
Procedure ope(a:mas);forward;
procedure vnu(a:mas;var k:integer);
begin
readln(k);
for i:=1 to k do
readln(a[i]);
end;
procedure ope;
var i,max,k:integer;
begin
max:=-maxint;
for i:=1 to n do
if max<a[i] then
max:=a[i];
vnu(a,k);
end;
Begin

[Gray_Jagger]

Массив задается случайными числами?
если да, то должно быть так:

begin
readln(n); {Ввод количества элементов в массиве}
init(a,n); {Процедура создания массива}
print(a,n); {Процедура вывода массива}
search(a,n); {Процедура поиска и вывода максимального элемента}
end.


{Где a:myarray; n:integer;}

Иначе, если, массив вводится с клавиатуры:

begin
readln(n); {Ввод количества элементов в массиве}
for i:=0 to n do readln(a[i]); {Ввод элементов с клавиатуры}
print(a,n); {Процедура вывода массива}
search(a,n); {Процедура поиска и вывода максимального элемента}
end.


{Где a:myarray; n:integer;}

Если необходимо, могу предоставить код любой процедуры.

[Серый777]

Gray_Jagger, спасибо, я сделал.

program op;
type mas=array[1..100]of integer;
var i:integer; ar:mas;
Procedure ope(a:mas);
forward;
procedure vnu(var a:mas;var k:integer);
var i:byte;
begin
writeln('vvedite k i zapolnite massiv do k');
readln(k);
for i:=1 to k do
readln(a[i]);
end;
procedure ope;
var i,max,k:integer;
begin
vnu(a,k);
max:=-maxint;
for i:=1 to k do
if max<a[i] then
max:=a[i];
writeln(max);
end;
Begin
ope(ar);
readln;
end.