Дан одномерный массив целых чисел состоящий из 22 двух элементов посчитать количество отрицательных элементов массива, а так же количество элементов которые делятся на 9. отредактировать программу.

Что то у тебя много циклов немного упростил
for i:=1 to 22 do readln (a[i]); в этой строчке я сделал чтобы эл-ты вводились рандомно и чтобы результат можно было проверить а то согласись вводить 22 эл-та-ужас.