Определить, какое минимальное и какое максимальное количество пар друзей могло образоваться после соревнования - Free Pascal

function Proc(aa,ak:integer):integer;
begin
      if ak=1
       then Proc:=aa
       else
        begin
          While ak<>1 do
           begin
             Dec(ak);
             aa:=aa+ak;
           end;
          Proc:=aa;
        end;
end;
var  s:string;
     i,j,a,n,m,t,k,k1,kmin,kmax:integer;
begin
     Writeln('Vvodnaya stroka:');
      Readln(s);
       Writeln;
     i:=1; k:=0;
     While i<=Length(s) do
      begin
        if s[i]<>' '
         then k:=10*k+(Ord(s[i])-Ord('0'))
         else
          begin
            n:=k;
            k:=0;
          end;
        if i=Length(s)
         then
          begin
            m:=k;
            Break;
          end;
        Inc(i);
      end;
     k1:=m-1;
      i:=n-k1;
       if i=1
        then kmax:=0
        else
         begin
           k:=i-1;
           a:=k;
           kmax:=Proc(a,k);
         end;
     kmin:=0;
      k:=n div m;
       k1:=n mod m;
        if k1<>0
         then
          begin
            for j:=1 to k1 do
             begin
               a:=k;
               kmin:=kmin+Proc(a,k);
             end;
            if k<>1 then
             for j:=1 to (m-k1) do
              begin
                t:=k-1;
                a:=t;
                kmin:=kmin+Proc(a,t);
              end;
          end
         else
          if k<>1
           then
            begin
              t:=k-1;
              a:=t;
              kmin:=Proc(a,t)*m;
            end;
     Writeln(kmin,' ',kmax);
   Readln;
end.