Дан массив из 10 элементов вывести их на экран и выяснить является ли n-элемент отрицательным числом. КуМир!

var a: array[1..999] of integer; var n: integer;begin    for var i := 1 to 10 do begin        a[i] := random(-9, 9);        write(a[i] + ' ');    end;    writeln;    read(n);        if a[n] < 0 then             write(n + '-элемент является отрицательным числом')        else             write(n + '-элемент не является отрицательным числом');end.