Первую упорядоченную по возрастанию строку матрицы поставить на первое место, все остальные сдвинуть вниз на одну строку

uses crt;
type str=array[1..10] of integer;
     mtr=array[1..10] of str;
var a:mtr;
    b:str;
    m,n,i,j,iu:byte;
begin
clrscr;
repeat
write('Введите количество строк от 2 до 10 m=');
readln(m);
until m in [2..10];
repeat
write('Введите количество столбцов от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Введите построчно элементы матрицы, целые числа из интервала [10..99]');
writeln('в том числе строки, упорядоченные по возрастанию');
for i:=1 to m do
 begin
  writeln('Строка ',i);
  for j:=1 to n do
   repeat
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   until a[i,j] in [10..99];
 end;
clrscr;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
iu:=0;
i:=1;
while (i<=m)and(iu=0) do
 begin
  j:=2;
  while (j<=n) and(a[i,j]>a[i,j-1])do inc(j);
  if j>n then iu:=i else inc(i);
 end;
if iu=0 then write('Нет строк, упорядоченных по возрастанию')
else if iu=1 then write('Первая строка упорядочена по возрастанию, перестановка не нужна')
else
 begin
  writeln('Номер первой строки, упорядоченной по возрастанию=',iu);
  b:=a[iu];
  for i:=iu downto 2 do
  a[i]:=a[i-1];
  a[1]:=b;
  writeln('Постановка строки ',iu,' на первое место');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:3);
    writeln;
   end;
 end;
readln
end.