Матрицы на паскале Опции

[Валерия]

В каждом столбце матрицы упорядочить по возрастанию все элементы,расположенные между минимальным и максимальным элементами этого столбца.

решите кто может...

[Altair]

Const
 n=10;
 m=10;
Type
 atype=array[1..n,1..m] of integer;

var
 a:atype;
 i,j:integer;
 min,min0,max,max0:integer;
 si,sj:integer;
 ssi,ssj:integer;
 k,l:integer;
begin
 for i:=1 to n do for j:=1 to m do read(a[i,j]); {ввод}
 For j:=1 to m do
 begin
  Min0:=MaxInt;
  For i:=1 to n do If a[i,j]<min0 then begin min0:=a[i,j]; si:=i; end;
  {Это был поиск минимального}
  Max0:=-maxint;
  For i:=1 to n do If a[i,j]>max0 then begin max0:=a[i,j]; ssi:=i; end;
  {это был поиск минимума}
  {тперь сортируем}
  If ssi>si then
  begin
   for i:=ssi downto si do for k:=si to i-1 do
   begin
    If a[k,j]>a[k+1,j] then begin l:=a[k,j]; a[k,l]:=a[k+1,l]; a[k+1,l]:=l; end;
   end;
  end;
 end;
 {все, остортировали, осталось только вывести}

end.

Я мог допустить ошибку, только если уже хочу спать ...
и вообще, Валерия, пожулуйста, не грустите, не добавляйте сегодня еще грусти в этот день...
Любая задача алгоритмически разрешима.
Если я и ошибся где-то (не проверял на компиляторе), то все легко исправимо..
алгоритм верный...
Думаю вы поймете как я решал... вам ее толькоосталось подправить ...
только прошу, не надо грустить