Поставить мин. элемент вначало массива, а макс.-в конец

[dima-intro]

Вот моя процедура.
Подскажите пожалуйста что не так, а то что-то сортирует не правильно (массив типа real)

procedure MinMax(var a:TArray100; cnt:integer);
 var i,j,p,p1,k:integer; buf,buf1,min,max:real;
 begin
 min:=1;
 max:=1;
 for i:=1 to cnt do
  if a[i]>max then
  begin
  max:=a[i];
  p:=i;
  end;
   for j:=1 to cnt do
    if a[i]<min then
    begin
    min:=a[i];
    p1:=j;
    end;
     for k:=1 to cnt do
    begin
     buf:=a[1];
     a[1]:=min;
     a[p1]:=buf;
     buf1:=a[cnt];
     a[cnt]:=max;
     a[p]:=buf1;
    end;
  end;

[Novi4ok_11]

procedure MinMax(var a:TArray100; cnt:integer);
var i,j,p,p1,k:integer; buf,buf1,min,max:real;
begin
min:=1;
max:=1;
  for i:=1 to cnt do
    begin
       if a[i]>max then 
        begin
          max:=a[i];
          p:=i;
        end;
    end;
  for j:=1 to cnt do
    begin
      if a[j]<min then
         begin
           min:=a[j];
           p1:=j;
         end;
    end;

buf:=a[p1];
a[p1]:=a[1];
a[1]:=buf;


buf1:=a[p];
a[p]:=a[cnt];
a[cnt]:=buf1;


end;

[dima-intro]

все равно не то что-то
максимальный в конец ставит, а минимальный никак(

[Novi4ok_11]

Исправил свой код выше, там Вы в циклах индексы не правильно поставили

[dima-intro]

ничего, к сожалению(

[Novi4ok_11]

Что именно? не чего не поменялось? минимальный в начало не ставит? если отак написать?

procedure MinMax(var a:TArray100; cnt:integer);
var i,j,p,p1,k:integer; buf,buf1,min,max:real;
begin
min:=1;
max:=1;
  for i:=1 to cnt do
    begin
       if a[i]>max then 
        begin
          max:=a[i];
          p:=i;
        end;
    end;
  for j:=1 to cnt do
    begin
      if a[j]<min then
         begin
           min:=a[j];
           p1:=j;
         end;
    end;

buf:=a[p1];
a[p1]:=a[1];
a[1]:=buf;


buf1:=a[p];
a[p]:=a[cnt];
a[cnt]:=buf1;


end;

Тогда просто отсортируйте Ваш массив по возрастанию - минимальный вначале максимальный вконце

[andrewpalkin]

procedure MinMax(var a:TArray100; cnt:integer);
var i :nteger; buf:real;
begin
  for i:=1 to cnt do
    begin
       if a[i]>a[cnt] then 
        begin
          buf:=a[cnt];
          a[cnt]:=a[i];
          a[i]:=buf;
        end;

       if a[i]<a[1] then 
        begin
          buf:=a[1];
          a[1]:=a[i];
          a[i]:=buf;
        end;
    end;
end;

[dima-intro]

вот за это спасибо большое. Помогли)