program mos;
Uses CRT;
var i,k:integer;
p:real;
M: array [1..10] of real;
begin
randomize;
for i:=1 to 10 do  begin
M[i]:= random(100)+1;
if i = 1 then write (i,' Digit - ',M[i],' | ') else  write (i,' Digit - ',M[i], ' | ');
end;

for k:=1 to 9 do begin
for i:=1 to 10-k do begin
if M[i] > M[i+1] then begin
p:=M[i];
M[i]:=M[i+1];
M[i+1]:=p;
end;
end;
end;

WriteLn();
for k := 1 to 10 do begin
write (M[k],' ');
end;
end.

if M[i] > M[i+1] then begin

program sort;
uses crt;
       var a,b,temp:integer;

           m: array [1..100] of integer;
begin
       clrscr;
       randomize;
       for a:= 1 to 100 do
         m[a]:= random(100)+1;
       for a:= 1 to 100 do
         write (' Chislo - ',m[a]);
         writeln;
       for a:= 1 to 99 do
         for b:= a+1 to 100 do
          if m[a]>m[b] then
           begin
            temp:=m[a];
            m[a]:=m[b];
            m[b]:=temp;
           end;
       for a:=1 to 100 do
        write(m[a]:5);
        readLn;
end.

write (' Число - ',M[i]);
end;
writeLn;