дан целочисленный массив А размера 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] gt; a[1]) and (a[k] lt; a[10]) then i := k;
  writeln('Порядковый номер последнего из частей, удовлетворяющих А1lt;Aklt;A10: ', i)
end.