двумерный массив

[niwssg]

Задача: В каждом столбце массива 7х7 расставить в обратном порядке только положительные значения. не используя доп. массив.
Что сделал :

uses crt;
var
a: array[1..7,1..7] of integer;
i, j, i1  :integer;
 begin
 writeln ('Двумерный массив: ');
 for i :=1 to 7 do
  for j :=1 to 7 do
   a[i,j]:=random (100)-50;
   for i:=1 to 7 do begin
    for j:=1 to 7 do
     write (a[i,j]:3,' ');
     writeln ;
   end;
  writeln('  ________________________');
  writeln;
  for  i := 1 to 7   div 2  do
   for j := 1 to 7   do
    if a[i,j] >0 then
     begin
     i1:= a[i,j];
     a[i,j]:=a[7-i+1,j];
     a[7-i+1,j] :=i1;
     end;
      for i:=1 to 7 do begin
       for j:=1 to 7 do
       write (a[i,j]:3,' ');
       writeln ;
      end;
 end.

Проблема в том что она сдвигает отрицательные значения и не меняет местами положительные если их 2 в столбце. пробовал другими способами но тут мне кажется подошёл ближе всего. Хотелось бы знать возможно ли решение этим способом или он в корне неверен.

[Serge_Bliznykov]

так устроит?

uses crt;
var
  a: array[1..7,1..7] of integer;
  i, j, tmp, iFirst, iLast  : integer;
begin
 writeln ('Двумерный массив: ');
 for i :=1 to 7 do begin
  for j :=1 to 7 do begin
   a[i,j]:=-50+random (100);
   write (a[i,j]:3,' ');
  end;
  WriteLn;
 end;

 writeln('  ________________________');
 writeln;
 for j := 1 to 7 do begin {цикл по столбцам от 1 до 7-го}
   iFirst := 1;
   iLast := 7; 
   while iFirst<iLast do begin
     {ищем положительный элемент, двигаясь сверху вних}
     while (iFirst < iLast) and ( a[iFirst, j] <= 0 ) do inc(iFirst);

     {ищем положительный элемент, двигаясь снизу вверх}
     while (iFirst < iLast) and ( a[iLast, j] <= 0 ) do dec(iLast);

     {если нашли такие элементы, то поменяем их местами}
     if (iFirst < iLast) then begin
        tmp := a[iFirst, j];
        a[iFirst, j] := a[iLast, j]; 
        a[iLast, j] := tmp;
     end;

     Inc(iFirst); Dec(iLast);

   end;
 end;


 for i:=1 to 7 do begin
   for j:=1 to 7 do
     write (a[i,j]:3,' ');
   writeln ;
 end;
 Readln;
end.

[niwssg]

Спасибо. Отдельное большое спасибо за объяснение.