Описать что делает каждая из процедур и функций

procedure Del(var ss: string);
var
  i: integer;
begin
  ind := 0;
  s2 := '';
  for i := 1 to length(ss) do
    if ss[i] in [',', '.'] then
    begin
      ind := i;
      break
    end
    else
      s2 := s2 + ss[i];
  s3 := '';
  if ind <> 0 then
  begin
    delete(s, 1, ind);
    s3 := ss;
  end;
end;

function ToDec(var ss: string; cc: byte): string;
var
  i, n, sum: longint;
  s:string;
begin
  sum := 0;
  n := length(ss);
  for i := 1 to n do
  begin
    dec(n);
    sum := sum + round((pos(ss[i], a) - 1) * exp(ln(cc) * n));
  end;
  str(sum,s);
  ToDec := s;
end;

function Cel(d: string; c: integer): string;
var
  s: string;
  k: integer;
  n2:real;
begin
  val(d,n2,k);
  s := '';
  repeat
    s := ((a[round(n2) mod c + 1]) + s);
    n2 := round(n2) div c;
  until (n2 = 0);
  Cel := s;
end;

function Drob(d: string; t, c: integer): string;
var
  s, l: string;
  l2, m: real;
  i, k: integer;
begin
if pos('E',d)=0 then
 
 val(('0.'+d),m,k)
else
val(d,m,k);
  s := '';
  i := 0;
  if t <> 0 then
  begin
    repeat
      l2 := m * c;
      m := frac(l2);
      s := s + a[round(int(l2)) + 1];
      inc(i);
    until i = t;
  end
  else
   s := '0';
  Drob := s;
end;

Function prov(c:integer;s:string):boolean;
Var
 i,kol,j:integer;
begin
kol:=0;
for i:=1 to c do
begin
 for j:=1 to length(s) do
 if s[j]=a[i] then
  inc(kol);
end;
if kol=length(s) then
 prov:=true
else
 prov:=false;
end;

function drob2(ss: string; c: integer): string;
var
  i: integer;
  sum: real;
  s:string;
begin
  for i := 1 to length(ss) do
    sum := sum + (pos(ss[i], a) - 1) * exp(ln(c) * -i);
  str(sum,s);
  drob2 := s;
end;