Найти номер последнего максимального элемента среди элементов, меньших Т1, и расположенных до первого элемента

var
a:array [1..100] of integer; 
i,j,n,t1,t2,,max:integer;
begin 
repeat
  write('Кол-во элементов массива');
  readln(n);
until n>0;
writeln ('Введите ',n,' элементов массива'); 
for i:=1 to n do 
readln(a[i]);
writeln('Полученный массив:');
for i:=1 to n do
write(a[i]:4);
writeln; 
if n=1 then
  writeln('Массив состоит из одного элемента. Поиск невозможен')
else
  begin
  write('Введите t1=');
  readln(t1);
  write('Введите t2=');
  readln(t2);
  i:=1;
  while (i<=n) and (a[i]<t2) do
   i:=i+1;
  if i>n then
    writeln('В массиве нет элементов больших ',t2)
  else if i=1 then
    writeln('Нет элементов лежащих до первого элемента большего  ',t2)
  else
    begin
      max:=i;
      for j:=i downto 1 do
      if (a[j]<t1) and (a[j]>=a[max]) then
        max:=j;
      if a[max]>=t1 then
        writeln('Нет элементов лежащих до первого элемента большего = ',t2,' и меньших ',t1)
      else 
        writeln('Номер последнего наибольшего элемента меньшего ',t1,' и лежащих до первого элемента большего',t2,'->',max); 
    end;
  end;
  readln;
end.