Прокомментировать код

Program Lab7_2;
const n=10;
type vektor=array[1..n]of integer;
procedure sort(var s:vektor;var c:integer);
var max,min,i,j,d,h,t,temp:integer;
begin
 
 for i:=1 to n do
  begin
   if s[i]>max then
    max:=s[i];
   if s[i]<min then
    min:=s[i];
  end;
repeat
d:=0;
 for i:=1 to n do
  if max=s[i] then
   begin
    d:=d+1;
    t:=i;
    if d=1 then
     h:=i;
   end;
max:=max-1;
 if (d=1)then
  c:=0;
until (d>1)or(max=min);
writeln;
 if d>=2 then
  c:=7;
 for i:=t-1 downto h-1 do
  for j:=h+1 to i-1 do
   if s[j]>s[j+1] then
    begin
     temp:=s[j+1];
     s[j+1]:=s[j];
     s[j]:=temp;
    end;
 end;
 
      var i,j,v_max,v_min,r,c :integer;
a:vektor;
BEGIN
      WriteLn('Лабораторная работа 7_2');
      WriteLn('Вариант 5');
      WriteLn('ИС-14-1-1');
      WriteLn('Зыков Роман');
 writeln;
 randomize;
 write('введите max  ');
 readln(v_max);
 write('введите min  ');
 readln(v_min);
 writeln;
  for i:=1 to n do
  begin
   a[i]:=random(v_max-v_min + 1) + v_min;
   write(a[i]:5);
  end;
c:=7;
sort(a,r);
 if r=0 then
  begin
   write('нет одинаковых чисел') ;
   exit;
  end;
writeln;
 for i:=1 to n do
  write(a[i]:5);
readln;
end.