Вычислить порядковый номер чисел из вектора

program ab;
var i:integer;
a : array[1..100] of integer;
begin
randomize;
for i:=1 to 100 do
a[i]:=random(100)+1;
 
Write('Ненулевые числа:');
for i:=1 to 100 do
begin
if(a[i]>0)and (a[i] mod 10 <>0 ) then
write(a[i],',');
end;
writeln;
Write('Делимые на 3 и на 5:');
for i:=1 to 100 do
begin
if(a[i] mod 3 = 0) and (a[i] mod 5 = 0) then
write(a[i],',');
end;
end.

program ab;
var i,n1,rand,tmp:integer;
a : array[1..100] of integer;
procedure gen;
var q:integer;
begin
randomize;
for q:=1 to 100 do a[q]:=random(100)+1;
end;
function del_3_5(del:integer):integer;
begin
if(del mod 3 = 0) and (del mod 5 = 0) then
write(del,',');
del_3_5:=del;
end;
begin
gen;
for i:=1 to 100 do
write (a[i],' ');
Write('Делимые на 3 и на 5:');
for i:=1 to 100 do
tmp:=del_3_5(a[i]);
 
end.

program ab;
var i,n1,rand,tmp:integer;
a : array[1..100] of integer;
procedure gen;
var q:integer;
begin
randomize;
for q:=1 to 100 do a[q]:=random(100)+1;
end;
 
function null(tmp:integer):integer;
begin
if (tmp<>0) and (tmp mod 10=0) then begin write(tmp,','); end;
end;
begin
gen;
for i:=1 to 100 do
write (a[i],' ');writeln;
writeln('----------------------');
Writeln('ненулевые '); {На самом деле нужны были числа с нулем в конце}
for i:=1 to 100 do
tmp:=null(a[i]);
 
end.