Определить минимальный элемент последовательности. Упорядочить последовательность

const
  nmax=25;
var
  a: array[1..nmax] of real;
  n,i,j,ik: byte;
  min,tmp,x: real;
  boo: boolean;
begin
  repeat
    write('Сколько элементов в последовательности (n<=25) ? ');
    readln(n);
  until n<=25;
  writeln('Исходная последовательность');
  for i:=1 to n do
  begin
    a[i]:=sin(pi/2-i*i)+1.5;
    write(a[i]:6:3);
  end;
  writeln;
  min:=a[1]; 
  for i:=1 to n do
    if a[i]<min then 
      min:=a[i];
  for i:=1 to n do
    if a[i]=min then
    begin
      writeln('min = ',min:6:3,'; порядковый номер: ',i);
    end;
  for i:=2 to n do
    for j:=n downto i do
      if a[j-1]>a[j] then
      begin
        tmp:=a[j-1];
        a[j-1]:=a[j];
        a[j]:=tmp;
      end;
  boo:=false;    
  writeln('Введите значение: ');
  readln(x);
  writeln('Упорядоченная последовательность:');
  for i:=1 to n do 
  begin
    if (a[i]>x) and (boo=false) then
    begin
      boo:=true;
      ik:=i;
    end;
    write(a[i]:6:3);
  end;
  writeln;
  writeln('Первое значение, большее ',x,': ',a[ik]:6:3,'; номер ',ik);
  readln;
end.