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

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