Дан массив А9. Разместить в массиве ТPO только те элементы исходного массива, которые не отрицательные, и делятся на два без остатка- Pascal(Паскаль)

const
n=10;
var
i,kol:integer;
a:array[1..n] of integer;
tpo:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

kol:=0;
for i:=1 to 9 do
 if (a[i]>=0) and (a[i] mod 2=0) then
  begin
   inc(kol);
   TPO[kol]:=a[i];
  end;


writeln('-------');

for i:=1 to n do
  write(' ',tpo[i]:3);
writeln();
end.