Lista de exercicios - Array - Vetor

6 - Escreva um algoritimo que leia um vetor inteiro de 30 posições e crie um segundo vetor, substituindo os valores nulos por 1. mostre os 2 vetores.

ProgramPzim ;
var
num,nulos: array[1..5]ofinteger;
cont:integer;
Begin
for cont:= 1 to 5 do
begin
Writeln('Digite um número:',cont,':');
read(num[cont]);

if num[cont]=0 then
nulos[cont]:=1

else
nulos[cont]:=num[cont];
end;

for cont:=1 to 5 do
writeln('num: [',num[cont],']');

for cont:=1 to 5 do
writeln('nulos: [',nulos[cont],']');


End.