Упорядочьте массив целых чисел

А[10] по убыванию

Program p1;

var r, z, k, i:integer; mas:array [ 1 ... 100 ] of integer; label m1;

begin k:=0;

writeln ('vvedite massiv iz 10 chisel cherez probel') ;

for i:=1 to 10 do begin

read (mas[ i ]) ;

k:=k+1;

end;

m1:

for i:=1 to k do begin

if mas[ i ] < mas[ i+1 ] then begin z:=mas[ i ]; r:=mas[ i+1 ];

mas[ i ]:=r; mas[ i+1 ]:=z; goto m1;

end; end;

for i:=1 to k do begin write (mas[ i ],' ') ; end;

end.