Последовательность чисел, удаление Опции

[Римус]

И еще одна задача, если можно. Не представляю как решать.
Условие
. Даны натуральное число n, действительные числа a1,..,an.В последовательности a1,....,an все неотрицательные члены, нo принадлежащие отрезку [a,b] (a>=0, a<b) -удалить.

У меня получилось неправильно

program pract10_1;
const WG=50;
type tmasm=array[1..WG] of integer;
var i,j,k,a,b,n:byte; z,ud:tmasm;
begin
   writeln('vvedite kol. elementov');
   readln(n);
   for i:=1 to n do 
      begin
      writeln('wwedite ',i,' element');
      read(z[i]);
      end;
writeln('vvedite a and b');
writeln('a=');read(a);
writeln('b=');read(b);
k:=0;
for I:=1 to n do
while a>=0 do
if (z[i]>0) and (z[i]>a) and (z[i]<b) then inc(k);z[k]:=z[i];
J:=0;I:=0;
  repeat
while z[i]=ud[i] do
  begin
    J:=1;
    repeat
    z[j]:=z[j+1];J:=j+1;
    until J>=n;
     n:=n-1;
   end;
until i>=n;
for i:=n+1 to n do z[i]:=0;
writeln('poluchenia massiv:');
for i:=1 to n do write(' ',z[i]);writeln;readln;
end.

.