Помогите. Нужно просто срочно

Если А10 = 0, то найти максимальный отрицательное элемент массива.
Если А не равно 0, то найти номера всех отрицательного элементов.

Вот написал, посмотрите ПРАВИЛЬНО ЛИ прога РАБОТАЕТ, ПРОСТО ЧТО-ТО НЕ ТО считает... .

исправте плиз если можыте,,,, оч надо на понедельник

program nomer6_2;
var a:array[1..20]of integer;
b:real;
i,n,k,max:integer;
begin
writeln ('Введіть елемент масиву');
for i:=1 to 20 do begin
write('a[',i,']=');
readln(a);
end;

if a[10]=0 then
begin
i:=1;
while (i=0) do
i:=i+1;
max:=a;
for k:=i+1 to n do
if (amax) then max:=a;
writeln('Максимальный отрицательный елемент', max);
end
else
begin
if a0 then

for i:=1 to 20 do
begin
if a