Перевод из C в Delphi

[Пaвeл]

Нашел нужную мне программу, но она на C. Я знаю только Delphi и Pascal. Помогите, пожалуйста, очень надо.

#include <iostream.h>
#include <string.h>
#include <stdlib.h>

void main()
{
  char Prufer_S[40];
  int Prufer_A[16];   
  int Prufer_B[16];   
  int Mnog[17],Mnog1[17];
  int N;                 
  int M;                 
  char A[2]; A[1]='\0';
  int i,j,k;

  //Начальная инициализация.
  for (i=0;i<16;i++)
	 Prufer_A[i] = Prufer_B[i] = Mnog[i] = Mnog1[i] = 0;
  Mnog[16] = Mnog1[16] = 0;

  cout << "Данная пpогpамма pаботает только с деpевьями\n";
  cout << "узлы котоpых содеpжат целые ключи, не большие 10.\n";
  cout << "Введите код Пpюфеpа... ";
  cin >> Prufer_S;
  N = strlen(Prufer_S)+1; M = N - 1;

  for(i=0;i<M;i++)
  {
    A[0] = Prufer_S[i];
    Prufer_A[i] = atoi (A);
  }

  for (i=0;i<N;i++) Mnog1[i] = 1;
  for (i=0;i<M;i++)
  {
    for (k=0;k<17;k++) Mnog[k] = 0;
    for (j=i;j<M;j++)  Mnog[Prufer_A[j]-1] = 1;
    for (j=0;j<N;j++)
      if (!(Mnog[j]) && Mnog1[j])
      {
       Prufer_B[i] = j+1;
       Mnog1[j] = 0;
       break; 
      }
  }
  for(i=0;i<M;i++) cout << Prufer_A[i] << " ";
  cout << endl;
  for(i=0;i<M;i++) cout << Prufer_B[i] << " ";
  cout << endl;
  cout << "Для постpоения деpева узлы в каждом столбце необходимо\n";
  cout << "    соединить дугами, напpавленными свеpху-вниз!      ";
}

[Somebody]

{$APPTYPE CONSOLE}

var
  Prufer_S: array [0..39] of Char;
  Prufer_A, Prufer_B: array [0..15] of Integer;
  Mnog, Mnog1: set of 0..16;
  N, M: Integer;
  A: array [0..1] of Char;
  i, j: Integer;
  e: Integer;

begin
  // Delphi: в глобальных переменных нули

  WriteLn('Данная пpогpамма pаботает только с деpевьями');
  WriteLn('узлы котоpых содеpжат целые ключи, не большие 10.');
  Write('Введите код Пpюфеpа... ');
  ReadLn(Prufer_S);
  N := Length(PChar(@Prufer_S))+1; M := N - 1;

  for i := 0 to M - 1 do
  begin
    A[0] := Prufer_S[i];
    Val(A, Prufer_A[i], e);
  end;

  for i :=0 to N - 1 do Include(Mnog1, i);
  for i :=0 to M - 1 do
  begin
    Mnog := [];
    for j := i to M - 1 do Include(Mnog, Prufer_A[j] - 1);
    for j := 0 to N - 1 do
      if not (j in Mnog) and (j in Mnog1) then
      begin
        Prufer_B[i] := j + 1;
        Exclude(Mnog1, j);
        break;
      end;
  end;
  for i := 0 to M - 1 do Write(Prufer_A[i], ' ');
  WriteLn;
  for i := 0 to M - 1 do Write(Prufer_B[i], ' ');
  WriteLn;
  WriteLn('Для постpоения деpева узлы в каждом столбце необходимо');
  WriteLn('    соединить дугами, напpавленными свеpху-вниз!      ');
end.

[Пaвeл]

Большое спасибо!