сортировка элементов в одномерном массиве

program lab8;
{ Sazonov Bogdan TEF TV-22 }
uses crt;
const n=20;
type massiv = array [1..n] of integer;
var mass:massiv;
    kol:integer;
    
procedure vvod ( var mass:massiv );
var i:integer;
begin
   write ('Vvedite kolichestvo elementov massiva (<=20): ');
   readln (kol);
   if kol<=20 then
   for i:=1 to kol do
   begin
   write ('mass[',i,'] = ');
   readln (mass[i]);
   end
   else writeln('Kolichestvo >20')
 end;
 
 
procedure zadanie (var mass:massiv);
var  arr: array [1..20] of integer;
     i,k:integer;
begin
k:=1;
for i:=2 to kol do
if mass[i]<=mass[i-1] then
begin arr[k]:=i; k:=k+1; end;
for i:=1 to k-1 do
mass[arr[i]]:=0;
end;
 
procedure sort (var mass:massiv );
var i,a,b,c:integer;
begin
   for a:=2 to kol do
    for b:=kol downto a do
     if mass[b]=0 then
     begin
      mass[b]:=mass[b-1];
      mass[b-1]:=0;
     end;
end;
 
procedure vivod ( mass:massiv );
var i:integer;
begin
 writeln;
 for i:=1 to kol do
  write (mass[i]:4);
end;
 
 
 
begin
   clrscr;
   vvod (mass);
   zadanie(mass);
   sort (mass);
   vivod(mass);
   readln;
end.