Пожалуста! ОЧ срочно!

var a: array[1… 100] of integer; n, i: integer; beginwrite ('Введите количество элементов массива'); readln (n); write ('Вводите элементы массива отделяя их клавишей "Enter"'); for i: =1 to n do read (a[i]); for i: =1 to n do if a[i]<0 then write ('число ', a[i], ', номер ', i,'; '); end.