В целочисленном массиве A(N) все неотрицательные элементы, не принадлежащие отрезку [b, d], заменить на единицу.

[Гарри]

Помогите решить:
В целочисленном массиве A(N) все неотрицательные элементы, не принадлежащие отрезку [b, d], заменить на единицу. Исходный и скорректированный массивы вывести на экран.

[newerow1989]

const n=20;
      b=2;
      d=5;
var a:array[1..n] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=-10+Random(21);
      Write(a[i],'  ');
   end;
   Writeln;
   For i:=1 to n do
   begin
      If (a[i]>=0) and ((a[i]<b) or (a[i]>d)) then
         a[i]:=1;
      Write(a[i],'  ');
   end;
   Readln;
end.

Сойдет?