Program pesquisa_binaria;
uses crt;
var
    resp,n,i : integer;
    v : array[1..10] of integer;
function max (vetor : array of integer; fim : integer): integer;
    var
    maior : integer;
    Begin
        i := 1;
        maior := 0;
        While(i <= fim) do
        Begin
            if vetor[i] > maior then
               maior := vetor[i];
            i := 1 + 1;
        End;
    WriteLn('O maior valor do vetor e ',maior);
end;
begin
    For i := 1 to 10 do
        Begin
        WriteLn('Digite o valor da posicao ', i,':');
        ReadLn(v[i]);
        clrscr;
    end;
    max(v,10);
end.