Доработать сортировку, Необходимо переписать 2-ю процедуру Опции

[Yalovick]

Необходимо переписать 2-ю процедуру:

Var a:array[1..50,1..50]  of integer;
i,j,f,e,g:integer;
Procedure generaciya;
          Begin
          Randomize;
          writeln('Massiv do sortirovki');
          for i:=1 to 5 do  {i строка}
          begin
          for j:=1 to 4 do  {j столбец}
          begin
          a[i,j]:=random(10);
          write(a[i,j]:3);
          end;
          writeln;
          end;end;
Procedure sortirovka;
          begin
          for i:=2 to 5 do
          begin
          e:=a[i,2];
          j:=2;
          while e>a[i,j] do
          inc(j);
          for g:=i-1 downto j do
          a[i,g+1]:=a[i,g];
          a[i,j]:=e;
          end;
          end;
Procedure  vuvod;
          begin
          writeln('Massiv posle sortirovki');
          for i:=1 to 5 do
          begin
          for j:=1 to 4 do
          begin
          write(a[i,j]:3);
          end;
          writeln;
          end;
          readln;
          end;
begin
generaciya;
sortirovka;
vuvod;
end.

Заранее благодарен