30 БАЛЛОВ ИНФОРМАТИКА!!

Заполнить массив из 15 элементов случайными числами в интервале [-20,20] и вывести номер первого из отрицательных элементов.

nst N=15;

var

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

 i,i1:integer;

 flag:boolean;

begin

 flag:=false;

 for i:=1 to N do

   begin

     a[i]:=random(41)-20;

     if (flag=false) and (a[i]<0) then

       begin

         i1:=i;

         flag:=true;

       end;

     write(a[i]:4);

   end;

 writeln;

 if flag then

 writeln('Первое отрицательное на ',i1,' позиции')

   else writeln('Отрицательных нет');

end.