Нахождение первого отрицательного элемента массива

[druger]

Помогите доделать прогу, которая печатает первый отрицательный элемент массива

program p5;
uses crt;
const n=5;
var a:array [1..n] of integer;
i:integer;
begin
clrscr;
writeln('vvedite ' ,n, ' elementov massiva');
for i:=1 to n do
read(a[i]);
i:=1;
while (i<=n)and (a[i]>=0) do
i:=i+1;
if i>n then writeln ('net otricatelnih')
else

[Tony Parker]

program p5;
uses crt;
const n=5;
var a:array [1..n] of integer;
i:integer;
begin
clrscr;
writeln('vvedite ' ,n, ' elementov massiva');
for i:=1 to n do
read(a[i]);
i:=1;
while (i<=n)and (a[i]>=0) do
i:=i+1;
if i>n then writeln ('net otricatelnih')
else
witeln('pervij otrisatelnij: #', i, ' znacheniye = ', a[i]);
end;