Duvida Ajuda no Pascal

[freedwhs]

ola amigos estou iniciando em pascal na faculdade, estou fazendo um programa em pascal como segue abaixo:

Program Pzim ;
type
vetor= array[1..3] of integer;

var
vetA: vetor;
i, teste, maior, menor: integer;
Begin
writeln('***************************************** *********************');
//menor:=0;
//maior:=0;
for i:= 1 to 3 do
begin
writeln('Digite valor ', i , ' para o vetor A:');
readln(vetA[i]);
teste:= vetA[i];
if teste > maior then
maior:= veta[i]
else
maior:= maior;
if teste < menor then
menor:= veta[i]
else
menor:= menor;

end;
writeln('O menor valor do Vetor A e ', menor , '.');
writeln('O maior valor do Vetor A e ', maior , '.');
End.


so que da o resultado certo para maior valor, mais o menor nao da o resultado certo. alguem poderia me ajudar. desde ja agradeço a todos.

[Lord Beni-Aretz]

Cara com "Ganbiarra" pode ficar assim:

Program Pzim ;
type
vetor= array[1..3] of integer;

var
vetA: vetor;
i, teste, maior, menor: integer;
Begin
writeln('***************************************** *********************');
menor:=9999;
maior:=-9999;
for i:= 1 to 3 do
begin
writeln('Digite valor ', i , ' para o vetor A:');
readln(vetA[i]);
teste:= vetA[i];
if teste > maior then
maior:= veta[i]
else
maior:= maior;
if teste < menor then
menor:= veta[i]
else
menor:= menor;

end;
writeln('O menor valor do Vetor A e ', menor , '.');
writeln('O maior valor do Vetor A e ', maior , '.');
End.

Estava faltando declarar o valor das variaveis maior e menor;

mas da pra fazer sem "gambiarra" assim:

Program Pzim ;
type
vetor= array[1..3] of integer;

var
vetA: vetor;
i, teste, maior, menor: integer;
Begin
writeln('***************************************** *********************');
//menor:=9999;
//maior:=-9999;
for i:= 1 to 3 do
begin
writeln('Digite valor ', i , ' para o vetor A:');
readln(vetA[i]);
teste:= vetA[i];
if i=1 then
maior:=teste
else if teste > maior then
maior:= veta[i]
else
maior:= maior;
if i=1 then
menor:=teste
else if teste < menor then
menor:= veta[i]
else
menor:= menor;

end;
writeln('O menor valor do Vetor A e ', menor , '.');
writeln('O maior valor do Vetor A e ', maior , '.');
End.

Se tiver mais dúvidas, ou algum exercício que tu esteja com dificuldade, posta ai ou me manda um Memsagem privada, que eu tento te ajudar,
to estudando, então isso me ajuda também... flw.

[Airaska]

Realmente como dito acima com um belo de um POG ,tem como consertar,pois para fazer de um jeito maior deeria se extender mais um pouquinho o code .