Матрицы в Turbo Pascal

[JIUMOH]

Помогите, пожалуйста с задачкой.
В матрице QW(n,m) переставить элементы так, чтобы на главной диагонали и линиях, параллельных ей, стояли возрастающие последовательности, причем перестановка элементов возможна только в пределах этих линий.
буду вам ооооочень благодарен

[Анатоль]

Блин ну ты жестокую задачу выкопал. Её задолбаешься писать.

[Alex_FF]

Задача простая, только вот главная диагональ есть только у квадратных матриц, поэтому там n должно быть равно m...

[IT-man]

Блин ну ты жестокую задачу выкопал

ничего жестокого)))

var
 i,j:integer;
 q:array[1..100,1..100] of integer;
 n:integer;
 s:boolean;
 tmp:integer;
 begin
 readln(n);
 for i:=1 to n do begin
  for j:=1 to n do begin
  q[i,j]:=random(n);
  write(q[i,j]:3);
  end;
  writeln;end;
 Writeln('--------------------');
  s:=true;
 while s=true do begin
   s:=false;
   for i:=1 to n-1 do
   for j:=1 to n-1 do
   if q[i,j]> q[i+1,j+1] then begin
   s:=true;
   tmp:=q[i,j];
   q[i,j]:=q[i+1,j+1];
    q[i+1,j+1]:=tmp;
   end; end;

  For i:=1 to n do begin
  for j:=1 to n do
  write(q[i,j]:3);
  writeln;
  end;
  readln;
  end.