Поиск экстремального элемента, удовлетворяющего нескольким условиям. [Паскаль]

[alexe132]

Задан целочисленный одномерный массив a из n элементов. Найти номер первого минимального элемента среди элементов, больших t1, и расположенных после первого элемента, равного t2. Если нет элементов со значением t2, то искать с начала массива. Помогите написать программу..)

[Mad_Cat]

i1:=1;
for i:=1 to n do
begin
if a[i]=t2 then begin i1:=i; break;end;
end;
i:=i1;
while i<=n do
begin
if a[i]>t1 then begin min:=i;i1:=i;break;end;
else inc(i);
end;
if (i=n) and (a[i]<t1) then writeln('TAKuX HET')
else for i:=i1 to n do
 if (a[i]<a[min]) and (a[i]>t1) then min:=i;
writeln('N=',min);