дан целочисленный массив А размера 10. вывести порядковый номер последнего

из тех его элементов Ак,которые удовлетворяют двойному неравенству А1<Ak<A10.

Если таких элементов нет то вывести 0

var  i, k: integer;  a: array [1..10] of integer;begin  writeln('Введите 10 элементов: ');  for k := 1 to 10 do readln(a[k]);  for k := 1 to 10 do     if (a[k] > a[1]) and (a[k] < a[10]) then i := k;  writeln('Порядковый номер последнего из элементов, удовлетворяющих А1<Ak<A10: ', i)end.