Отыскать 1-ый отрицательный элемент массива, модуль которого находится в данных пределах,

program raf105;

const

 n = 7;

var

 a:array[1..n] of integer;

 i,x,y: integer;

 z: boolean;

begin

write('Введите 2 числа. Малое и максимальное: ');

readln(x,y);

writeln('Заполните массив из ',n,' частей');

for i:=1 to n do

 readln(a[i]);

write('Изменённый массив: ');

for i:=1 to n do

begin

 if (not z) and (xlt;=абс(a[i])) and (абс(a[i])lt;=y) and (a[i]lt;0)

   then begin

     a[6]:= a[i];

     a[i]:= i;

     z:= True;

   end;

 write(a[i],' ');

end;

end.

PascalABC 3.4.2