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

Если А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<=20) and (a>=0) do
i:=i+1;
max:=a;
for k:=i+1 to n do
if (a<0) and (a>max) then max:=a;
writeln('Максимальный отрицательный елемент', max);
end
else
begin
if a<>0 then

for i:=1 to 20 do
begin
if a<0 then

end;

for i:=1 to 20 do
writeln (b:4:1);

end;end.

Введіть елемент масиву
a[1]=1
a[2]=2
a[3]=4
a[4]=5
a[5]=3
a[6]=-4
a[7]=4
a[8]=31
a[9]=-7
a[10]=4
a[11]=56
a[12]=5
a[13]=6
a[14]=74
a[15]=4
a[16]=3
a[17]=-7
a[18]=23
a[19]=-1
a[20]=4
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0