задача cond2 матрицы паскаль

[sanchoflat]

задали такую задачку:

"Задан целочисленный одномерный массив A из N элементов. Найти номер первого минимального элемента среди элементов, больших Т1, и расположенных после первого элемента, равного Т2. Если нет элементов со значением Т2, то искать с начала массива. (Подсказка: «Сначала найти первый, равный T2, и последний, больший T1, а затем уже искать минимум, или вывести сообщение о причинах невозможности его поиска.»)"

задал матрицу, задал числа t1 и t2, не очень понимаю как найти номер первого минимального элемента, больших t1 и расположенных после элемента равного t2, как вот работать именно с номерами чисел

[sanchoflat]

конечно понимаю что тут полная ерунда, но пока понять немного не могу. тут хочу найти номер элемента равного Т2, и номер больший Т1, но как сделать чтоб он был последним

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;


   var
     a:array[1..10,1..10] of Integer;
      i,j,n,s,t1,t2,min,max:Integer;
begin

    write('n=');
    readln(n);
    writeln('vvedite matricy');
    for i:=1 to n do
    for j:=1 to n do
    Readln(a[i,j]);
    write(' t1=');
    readln (t1);
    write('t2=');
    readln(t2);


      for i:=1 to n do
      for j:=1 to n do
      if a[i,j]=t2
       then
       begin
          write('nomer=');
          Readln(a[i,j]);
          end;

          for i:=1 to n do
          for j:=1 to n do
          if a[i,j]>t1
          then
          begin
            Writeln('nomer2=');
            Readln(a[i,j]);
          end;




end.

[cronosanz]

const
  N=15;
var
  A:array[1..N] of integer;
  T1,T2,i,j,k,buf:integer;
  isFind:boolean;
begin
  readln(T1,T2);
  isFind:=false;
  for i:=1 to N do
    if T2=A[i] then 
      begin
        T2:=i;
        isFind:=true;
        break;
      end;
  k:=1;
  if isFind then k:=T2 else writeln('T2-не сущ.');
  for i:=k+1 to N do 
    for j:=k+1 to N do
      if A[j]<A[j-1] then 
        begin
          buf:=A[j-1];
          A[j-1]:=A[j];
          A[j]:=buf;  
        end;
  for i:=k to N do 
    if A[i]>T1 then 
      begin
        writeln(A[i]);
        exit;
      end;
  writeln('не подходящих элементов');
    
end.

[sanchoflat]

как то не особ понятно и вроде вставил, не пашет

[cronosanz]

Зачем тебе двуиерный массив?

[cronosanz]

т.е. двумерный

[sanchoflat]

а блин точно. не нужен)

[cronosanz]

поставь перед вначале:

program Project1;

{$APPTYPE CONSOLE}

[cronosanz]

перед вначале (плеоназм);
перед const короче

[sanchoflat]

так поставил. ввожу 2 числа и выбивает.
но даже все равно, с break сказали не делать
как правильней будет написать код поиска номера первого элемента равного Т2

begin

    write('n=');
    readln(n);
    writeln('vvedite matricy');
    for i:=1 to n do  begin

    Readln(a[i]);
    end;
    write(' t1=');
    readln (t1);
    write('t2=');
    readln(t2);

 for i:=1 to n do    begin
      if t2=a[i]
       then
       begin
          t2:=i;
          Readln(t2);

          end;
          end;

но он естествеено не робит