Як створити власний блог за до до ть з контрольною​

Var St: string;
 z:string[10];
 x:string[2];
i,j,k,m: integer;           //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0;                       //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
 begin;
  for m:=1 to 10 do
   if St[j]=z[m] then inc(k);
 end;
if k=0 then
begin;
 writeln('в тексте нет цифр');
 exit;
end;                              //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.

static string DecAntjeToBin(int antje)
{
   /*if (antje == 0)
        return "0";*/ //косметический 0 перед запятой если целая часть равна 0
   string bin = "";

   while (antje != 0)
   {
      bin = (antje % 2).ToString() + bin;
      antje /= 2;
   }
   return bin;
}

 

static string DecMantToBin(float mant, int precision)
{
   /*if (mant == 0)
        return "0";*/ //косметический 0 после запятой если дробная часть равна 0
   string bin = "";
   while (mant != 0 && bin.Length <= precision)
   {
      mant *= 2;
      bin += ((int)mant).ToString();
      mant -= (int)mant;
   }
   return bin;
}

 

static string DecToBin(float dec, int precision)
{
   int antje = (int)dec;
   float mant = dec - antje;
   return DecAntjeToBin(antje) + "," + DecMantToBin(mant, precision);
}

 

static string DecToBin(int dec)
{
   return DecAntjeToBin(dec);
}

 

static float Pow(int a, int x)
{
   float result = 1;
   if (x > 0)
      for (int i = 0; i < x; i++)
         result *= a;
   else
      for (int i = x; i < 0; i++)
         result /= a;
   return result;
}

 

static float BinMantToDec(string mant)
{
   float decMant = 0;
   for (int i = 0; i < mant.Length; i++)
      if (mant[i] == '1')
         decMant += Pow(2, -(i + 1));
   return decMant;
}

 

static float BinAntjeToDec(string antje)
{
   float decAntje = 0;
   for (int i = 0; i < antje.Length; i++)
      if (antje[i] == '1')
         decAntje += Pow(2, antje.Length - i - 1);
   return decAntje;
}

static float BinToDec(string bin)
{
   int indexSep = bin.IndexOf(',');

   if (indexSep == -1)
      return BinAntjeToDec(bin);

   string binAnt = bin.Substring(0, indexSep);
   string binMant = bin.Substring(indexSep + 1);

   return BinAntjeToDec(binAnt) + BinMantToDec(binMant);
}