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

[cronosanz]

надо массив вначале заполнить (хотя б случайно);
и в конце поставь readln; что б не ушло.

[sanchoflat]

если не сложно, помоги разобраться с моим вариантом еще

[cronosanz]

program Project1;

{$APPTYPE CONSOLE}
const
  N=15;
var
  A:array[1..N] of integer;
  T1,T2,i,j,k,buf:integer;
  isFind:boolean;
begin
//Заполняю случайно массив
  randomize;
  for i:=1 to N do
    A[i]:=random(100);
//*************************


  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-false');
  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;
  isFind:=false;
  for i:=k to N do
    if A[i]>T1 then
      begin
        writeln(A[i]);
        isFind:=true;
        break;
      end;
  if not isFind then writeln('can not find element');


//остановим
readln;
readln;

end.

[cronosanz]

просто замени весь текст в delphi и скомпиль

[cronosanz]

program Project1;

{$APPTYPE CONSOLE}
const
  N=15;
var
  A:array[1..N] of integer;
  T1,T2,i,j,k,buf:integer;
  isFind:boolean;
begin
//Заполняю случайно массив
  randomize;
  for i:=1 to N do
    A[i]:=random(100);
//*************************


  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-false');
  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;
  isFind:=false;
  for i:=k to N do
    if A[i]>T1 then
      begin
        writeln(A[i]);
        isFind:=true;
        break;
      end;
  if not isFind then writeln('can not find element');


//остановим
readln;
readln;

end.