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

из тех его элементов Ак, которые удовлетворяют двойному неравенству А1
Если таких элементов нет то вывести 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
end.