Заполнить массив из N вещественных чисел случайным образом. Отсортировать его по возрастанию 2 способами

for i := 1 to m - 1 do
  for j := 1 to m - i do
    if mas[j] > mas[j + 1] then begin
      k := mas[j];
      mas[j] := mas [j + 1];
      mas[j + 1] := k
    end;

for i:= 2 to N do 
 if a[i-1]>a[i] then                  
  begin x:= a[i]; 
      j:= i-1; 
   while (j>0)and(a[j]>x) do  begin 
        a[j+1]:= a[j]; 
        j:= j-1;   end; 
  a[j+1]:= x; 
 end;

for i:= 2 to N do 
 if a[i-1]>a[i] then  
  begin a[0]:= a[i];      
      j:= i-1; 
       while a[j]>a[0] do             
     begin a[j+1]:= a[j]; 
      j:= j-1;     end; 
  a[j+1]:= a[0]; 
 end;

program sort;
 
const
  n = 5;
 
type
  mas = array[1..n] of integer;
 
var
  a: mas;
  i: byte;
 
procedure simpleInsertion(a: mas);
var
  i, j: byte;
  x: integer;
begin
  writeln('Сортировка простыми вставками: ');
  for i := 2 to n do
    if a[i - 1] > a[i] then
    begin
      x := a[i];
      j := i - 1;
      while (j > 0) and (a[j] > x) do
      begin
        a[j + 1] := a[j];
        j := j - 1;
      end;
      a[j + 1] := x;
    end;
  for i := 1 to n do
    write(a[i]:5);
end;
 
procedure bubble(a: mas);
var
  i, j: byte;
  buf:integer;
begin
  writeln('Сортировка пузырьком: ');
  for i:=1 to n-1 do 
    for j:=i+1 to n do
      if a[i]>a[j] then 
        begin
          buf:=a[i]; 
          a[i]:=a[j]; 
          a[j]:=buf;
        end;
  for i := 1 to n do
    write(a[i]:5);
end;
 
begin
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(100) - 50;
    write(a[i]:5);
  end;
  writeln;
  simpleInsertion(a);
  writeln;
  bubble(a);
end.