Упорядочьте массив целых чисел А[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 ]:=r; mas[ i+1 ]:=z; goto m1; 
end;end; 
for i:=1 to k do begin write (mas[ i ], );end; 
end.