Lista de exercicios - Array - Vetor

5 - Excreva um algoritimo que leia um vetor de 80 elementos inteiros. encontre e mostre o menos elemento e sua posição no vetor.

Program Pzim ;
var
num:array[1..5]of integer;
cont, menor:integer;
Begin
menor:=1000;
for cont:=1 to 5 do
begin
writeln('Informe um número:');
readln(num[cont]);
end;
if num
writeln('O menor número é', num[cont]);