Прошу помогите на...

Прошу помогите на Зачёте: Дано массив целых чисел A[N]. Проверьте, есть ли в нем отрицательные элементы. Если есть, найдите наибольшее i, прикотором A<0, иначе выведите сообщение.

 

Программа находит наибольшее отрицательное число из n чисел, так как рандом состоит из положительных и отр. чисел, не стал писать else. Код кривой, но рабочий
program asd;
USES crt;
var a:array[1..100]of integer;
i,n,max:integer;
BEGIN
clrscr;
Writeln('Vvedite kol-vo chisel: ');
Readln(n);
for i:=1 to n do
begin
A:=random(20)-10;
Write(' ',A);
end;
max:=A[1];
for i:=2 to n do
begin
if (A<0) then
begin
if (A<max) then max:=A
end;
end;
Writeln;
Writeln('Maksimalnoe chislo pri A<0 = ',max);
END.