Расшифровка программы

[Igoreha010]

procedure TForm1.Button1Click(Sender: TObject);
var
  text1, slovo, text2: string;
  i, p, k, q: integer;
  n: real;
begin
  edit2.text := '';
  edit3.text := '';

  begin
    text1 := edit1.Text;
  end;
  begin
    text1 := edit1.Text;
    i := 0;
    text1[length(text1) + 1] := ' ';
    repeat
      begin
        slovo := '';
        repeat
          i := i + 1;
          slovo := slovo + text1[i];
        until text1[i] = ' ';

        if (length(slovo) - 1) = 5 then
        begin
          for k := 1 to (length(slovo) - 1) do
          begin
            for p := 1 to 4 do
            begin
              if slovo[k] = slovo[k + p] then
              begin
                slovo[k + p] := slovo[k + 1];
                slovo[k + 1] := slovo[k];
              end;
            end;
          end;
        end;

        edit3.text := edit3.text + slovo;
      end;
    until length(text1) < i;
  end;

  begin
    text1 := edit1.Text;
    i := 0;
    text1[length(text1) + 1] := ' ';
    repeat
      begin
        slovo := '';
        p := 0;
        repeat
          i := i + 1;
          slovo := slovo + text1[i];
        until text1[i] = ' ';
        for k := 1 to (length(slovo) - 1) do
        begin
          if (((slovo[k] > '0') or (slovo[k] = '0')) and (slovo[k] < '9999')) then
            inc(p);
        end;
        if (length(slovo) - 1) = p then
          edit2.text := edit2.text + slovo;
      end;
    until length(text1) < i;
  end;


  begin
    text2 := edit2.Text;
    i := 0;
    n := 0;
    repeat
      slovo := '';
      repeat
        i := i + 1;
        slovo := slovo + text2[i];
      until text2[i + 1] = ' ';
      n := strtofloat(slovo);
      n := n + 23;
      break;
    until (length(text2) < i) or (length(text2) = i);
    edit2.text := floattostr(n);

  end;
end;

написал программу пол года назад, а отчет требуется писать сейчас.
Программа переставляет одинаковые литеры в каждом 5-и символьном слове рядом и увеличивает первое числовое слово на 23

Как разобраться в строках, в какой что написано? может кто сможет понять и подскажет.... очень нужно.
в заранее спс.



По правилам форума,
для оформления кода строго обязательно
использовать тэги [СОDE]..[/СODE] (это кнопочка с решёточкой (#) )
Модератор.