Рекурсия. Поиск элемента в массиве. Паскаль

[IIo3uTuB]

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

[newerow1989]

function max(a:array of integer; n:integer):integer;
var k:integer;
begin
   If n=1 then
      Result:=a[1] else
   begin
      k:=max(a,n-1);
      If a[n]>k then
         Result:=a[n] else
         Result:=k;
   end;
end;

const n=10;
var a:array[1..n] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(100);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Writeln(max(a,n));
   Readln;
end.