Отсортировать строки произвольной матрицы по убыванию методом прямых вставок с барьером вставок

program lab43;
uses crt;
const n=100;m=150;
var i,j,x,y,z,k:integer;
    a:array [0..n,0..m] of integer;
begin
     clrscr;
     writeln('Ââåäèòå êîëè÷åñòâî ñòðîê â ìàòðèöå, îíî íå äîëüæíî áûòü >0  è íå ïðèâûøàòü 100');
     readln(x);
     writeln('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ â ìàòðèöå, îíî äîëæíî áûòü >0 è íå ïðåâûøàòü 150');
     readln(y);
     writeln('íàæìèòå Enter');
     readln;
     randomize;
     for i:=1 to x do
         begin
         for j:=1 to y do
             begin
             a[i,j]:=random(9)+1;
             write (a[i,j]:2,' ');
             end;
         writeln;
         end;
         readln;
     writeln('Ìàòðèöà ñãåíèðèðîâàíà');
     readln;
     for i:=1 to x do
         for j:=2 to y do
             if a[i,j-1]<a[i,j] then
                    begin
                    a[0,0]:=a[i,j];
                    j:=j-1;
                    while a[i,j]<a[0,0] do
                    begin
                    a[i,j+1]:=a[i,j];
                    j:=j+1;
                    end;
                    a[i,j+1]:=a[0,0];
                    end;
                 writeln('Ìàòðèöà îòñîðòèðîâàíà: ');
                 readln;
                 for i:=1 to x do
                     begin
                     for j:=1 to y do
                     write (a[i,j]:2,' ');
                     writeln;
                     end;
     readln;
end.