Chank

//Programa que faz uso de funções recursivas para fazer cálculos com um vetor
//Gustavo Andrade Ferreira
//Turma 10 A
//Disciplina : Algoritmos e estrutura de dados I
Program vetor;
uses crt;
var
    resp,n,i : integer;
    v : array[1..10] of integer;
function max (vetor : array of integer; fim : integer): integer;
    var
    maior,inicio : integer;
    Begin
        i := 1;
        maior := vetor[i];
        inicio := v[i];
        while (i <= fim) do
            Begin
            If v[i + 1] > v[i] then
                maior := vetor[i + 1];
            i := i + 1;
        end;
        max := maior;
    end;
begin
    For i := 1 to 10 do
        Begin
        WriteLn('Digite o valor da posicao ', i,':');
        ReadLn(v[i]);
        clrscr;
    end;
    WriteLN(max(v,10));
end.