Поиск максимального элемента в массиве, рекурсия. Free Pascal

[avatar54]

Решить задачу с применением рекурсии и без неё
Найти максимальный элемент в массиве a[1...n], используя соотношение max (a[1...n])=max (max (a[1...n-1]), an)

Вот через функции , а нужно ещё составить через процедуры и объединить в одну программу

PHP код:

type mas=array[1..50]of integer; 
var a:mas; 
n,i:integer; 
function Max(n:integer):integer; 
var w:integer; 
begin 
if n>1 then 
begin 
w:=Max(n-1); 
if a[n]<w then Max:=w 
else Max:=a[n] 
end 
else Max:=a[1] 
end; 
begin 
randomize; 
write('Razmer massiva A n='); 
readln(n); 
writeln('Massiv A:'); 
for i:=1 to n do 
begin 
a[i]:=random(20); 
write(a[i],' '); 
end; 
writeln; 
write('max=',Max(n)); 
readln 
end.