Nenhuma resposta neste tópico

[freedwhs]

ola galera estou aqui para pedir uma ajuda sou novato no pascal. quero fazer um programa que ache o menor valor de um vetor de tamanho 10, para achar esse valor criei uma função so que ela retorna como menor valor o primeiro digitado. alguem pode dizer como corrigir isso. desde ja muito obrigado....
segue abaixo o a rotina inteira:

program 04;

{$APPTYPE CONSOLE}

uses
SysUtils;
function menor (x,y:integer):integer;
var
menorv,i:integer;
begin
menorv:= y; // fiz esse linha para menorv receber o primeiro valor
begin
if x < menorv then
menor:= x
else
menorv:= menorv;
end;
menor:=menorv;
end;

type
vetor= array[1..10] of integer;

var
vetA: vetor;
i, teste,maior, menorval: integer;

Begin
for i:= 1 to high (vetA) do
begin
writeln('Digite valor ', i , ' para o vetor A:');
readln(vetA[i]);
begin
if i = 1 then
teste:= vetA[i]; // linha para manda o primeiro valor para menorv da função
end;
end;
menorval:= menor(vetA[i],teste);

writeln('O menor valor do Vetor A e ', menorval , '.');

readln;
End.