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

Program MetodSortirovciPuzirkom;
   Uses CRT;
  Const
        n=10;
        q=2;
    Var
        R:array[1..n] of Integer;
        i,j,k,c:Integer;
Begin
 ClrScr;
 Randomize;
 
             GotoXY(5,7);
             WriteLN('Ishodnij masiw.');
             For c:=1 to q do WriteLN;
 
{*********************** zapolnenie masiwa sluchaqnimi chislami **********}
     For i:=1 to n do
         begin
          r[i]:=random(10);
          Write(R[i]:3);
         end;
 
             For c:=1 to q do WriteLN;
             GotoXY(5,14);
             WriteLN('Sortirovca Metodom Puzirka.');
             For c:=1 to q do WriteLN;
 
{*************************** sortirovka masiva ***********************}
     For i:=1 to n-1 do
     For j:=1 to n-1 do
     If r[j]>r[j+1]
       then
          begin
        K:=r[j];
        r[j]:=r[j+1];
        r[j+1]:=k;
          end;
 
{****************************** wiwod sortirovki *********************}
     For i:=1 to n do
         Write(r[i]:3);
 
ReadKey;
End.