Написать программку в Паскале: В массиве из N действительных чисел, введённых

program zz1;

var  i, n, k:integer; // задаем переменные целого типа

m:array [1..1000] of integer;

begin

write( введите данное число );

read(n);

for i:=1 to n do  // получаем n чисел с клавиатуры и записываем их в массив

read(m[i]);

for i:=1 to n do  

if m[i] lt; 0 // проверяем условие, если очередной элемент массива отрицательный, то выводим ответ, запоминаем это событие и прерываем цикл

then begin write( 1-ый отрицательный элемент = , m[i]); k:=1; break; end;

if k = 0 then write( отрицательных частей массива нет );

end.