Написать программу, содержащую функцию нахождения максимального элемента открытого массива

uses crt;
var
n:integer;
function  f(n:integer):integer;
begin
if (n=0)or(n=1) then f:=1
else
f:=f(n-1)+f(n-2);
end;
begin
writeln('введите n');
readln(n);
writeln('f(n)= ', f(n));
readln;
end.

uses crt;
var
i,n,m:integer;
a:array[1..20] of integer;
function max(a:array[1..20] of integer):integer;
begin
m:=a[1];
for i:=1 to n do
if a[i]>m then
m:=a[i];
max:=m;
end;
begin
writeln('введите n');
readln(n);
for i:=1 to n do
begin
a[i]:=random(20);
write(' ',a[i]);
end;
writeln(' max=',max(a));
readln;
end.

uses crt;
var n,f:integer;
procedure fib(a,b,n:integer;var f:integer);
var n1,na,nb:integer;
begin
n1:=n;
na:=a+b;
nb:=a;
dec(n1);
if n1 <> 0 then
fib(na,nb,n1,f)
else f:=a+b
end;
 
 
begin
clrscr;
write('введите n=');
readln(n);
fib(1,0,n,f);
write('f(',n,')= ',f);
readln
end.

uses crt;
function max(a:array of integer):integer;
var i,m:integer;
begin
m:=a[0];
for i:=1 to high(a) do
if a[i]>m then m:=a[i];
max:=m;
end;
 
var i,n,m:integer;
a:array[1..20] of integer;
begin
clrscr;
randomize;
write('введите n=');
readln(n);
for i:=1 to n do
begin
a[i]:=random(20);
write(' ',a[i]);
end;
writeln;
writeln(' max=',max(a));
readln;
end.