Найти с помощью рекурсии максимальный элемент вектора - Pascal

uses crt;
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{пока в массиве больше 1 элемента}
 begin
  w:=Max(n-1);{смотрим предпоследний}
  if a[n]<w then Max:=w{сравниваем с последним, либо предпоследний}
  else Max:=a[n]{либо последний пока максимальные}
 end
else Max:=a[1]{если 1, он максимальный}
end;
 
begin
clrscr;
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.