Сортировка массива методом вставки

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.

const n=40;
var a:array[1..n] of byte;
    i,j,x:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=5+random(36);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i] mod 2=0)and(a[j] mod 2=0)and(a[i]>a[j])then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Сортировка четных по возрастанию');
for i:=1 to n do
write(a[i]:4);
end.

for i:=5 to n-1 do
for j:=i+1 to n do