function max (vetor : array of integer): integer;
    var
    maior,inicio : integer;
    Begin
        i := 1;
        maior := v[i];
        inicio := v[i];
        while (i <= 10) do
        Begin
            If max(v[i]) >= max(v[i + 1]) then
                maior := v[i]
            else
                maior := v[i + 1];
            i := i + 1;
        end;
        WriteLn(maior);
    end;