Сортировка массива методом вставки - Pascal ABC (12856)

program ind;
function getRandom(a, b: integer): integer;
begin
  Result := Random(b - a + 1) + a;
end;
 
const
  row = 40;
  
type
  TElement = integer;
  TMas = Array[1..row] of TElement;
 
var
  A: TMas;
  T: TElement;
  Matr: Array[1..row] of integer;
  i, k, j: integer; 
 
begin
  Randomize; 
  for i := 1 to row do
  begin      
    Matr[i] := getRandom(100, 999);
  end;  
  writeln(' Mасив: ');
  for i := 1 to row do
  begin    
    write(Matr[i], ' ');    
  end;  
  writeln; 
  for i := 2 to row do
  
  begin
    T := Matr[i]; 
    j := 1; 
    while T > Matr[j] do 
      j := j + 1;
    for k := i - 1 downto j do 
      Matr[k + 1] := Matr[k]; 
      Matr[j] := T; 
  end;
  WriteLn(' Упорядкуваний масив:');
  for i := 1 to row do 
    Write(Matr[i], ' ');
  WriteLn;
end.