Не работает программа, как исправить? паскаль

[Тетрадь]

Рекурсия. Нужно найти наибольший элемент в массиве.

uses op,obrabotki;
var a:mas;
    n,i:integer;
    pr:integer;
begin
readln(n);
vvod(a);
pr:=max(a,w);
write('max=',Max(n));
end.

unit obrabotki;
interface
uses op;
function max(var a:mas; n:integer):integer;
procedure vvod (var a:mas; n:integer);
implementation

function max(var a:mas; 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;
procedure vvod (var a:mas; n:integer);
var i:integer;
begin
randomize;
for i:=1 to n do
              begin
              a[i]:=random(20);
              end;
              end;
              end.

unit op;
interface
type mas=array[1..50] of integer;
var a:mas;
    n,i:integer;
implementation
end.

Может можно как-то более проще реализовать рекурсионный алгоритм

[ZX Spectrum-128]

                      else max:a[n];

Сначала исправить синтаксические ошибки.

[Тетрадь]

забыл исправить когда программу сюда заливал. Не работает, не могу разобраться как исправить

[Serge_Bliznykov]

Вы путаете (или не знаете, что это такое) формальные и фактические параметры.

пробуйте

Главная программа

uses op,obrabotki;
var a:mas;
    n:integer;
begin
  WriteLn('Введите размерность массива: ');
  readln(n);
  vvod(a, n);
  printArr(a, n);
  write('max=', max(a, n));
end.

op.pas

unit op;
interface
type mas=array[1..50] of integer;
implementation
end.

obrabotki.pas

unit obrabotki;
interface
uses op;

function max(var a:mas; n:integer):integer;
procedure vvod (var a:mas; n:integer);
procedure printArr (var a:mas; n:integer);

implementation

function max(var a:mas; n:integer):integer;
var
  w:integer;
begin
  if n=1 then max := a[1]
  else begin
     w:=max(a, n-1);
     if a[n]<w then max:=w
               else max:=a[n];
  end;
end;

procedure vvod (var a:mas; n:integer);
var i:integer;
begin
  randomize;
  for i:=1 to n do
        a[i]:=random(20);
end;

procedure printArr (var a:mas; n:integer);
var i:integer;
begin
  for i:=1 to n do begin
      Write(a[i]:2,' ');
  end;
  WriteLn;
end;

end.