Введите массив из 10 чисел и выведите на экран только отрицательные значения этого массива(c номерами этих массивов,т.е. при выводе на экран отрицательных значений будет написано,например:m[1]=-3). Напишите,пожалуйста,программу.

program a1;
const n=10;
var a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do begin
read(a[i]);
end;
for i:= 1 to n do begin
if a[i] end
end.