Даны массив А(13),состоящий из элементов,среди которых есть положительные,отрицательные и равные нулю. Напечатать те числа из массива,которые меньше предыдущего числа.

нужна прогр в паскале

каюсь, не помню паскаль, но что-то в мозну осталось:program lalavar A[1..13]:array of integer;i:integer;beginfor i:=1 to 13 dowriteln(A[i]);for i:=1 to 12 doif (A[i]>A[i+1] then write(A[i+1])end.