Прошу помогите на Зачете: Дано массив целых чисел A[N]

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