Перевод из Паскаля в Си++

[reyryuyu]

Задали перевод из Паскаля в Си++. Но Паскаль я не знаю совершенно, поэтому прошу вашей помощи.

Пример 1.

Type pt = ^z = Record bukv:char; ss: pt End;
Const A: Array[1..9] of char = ('A', 'P', 'Y', 'T', 'K', 'Y', 'P', 'T', 'C');
Var j: byte; q,t: pt; {t - указатель верхушки стека}
BEGIN t:= Nil;
For j:= 1 to 9 do {заносим в стек девять букв - элементов массива А}
Begin New(q); q^.bukv:= A[j]; q^.ss:=t; t:= q End;
While t <> Nil do
Begin q:=t; {указатель q нужен для уничтожения}
Write (t^.bukv); t:= t^.ss;
Dispose (q)
End; Readln;
END.

Пример 2.

Type mas = Array[1..16] of byte;
Const X: mas = (2,3,5,9, 1,4,7,8, 5,7,8,8, 2,3,4,5);
Var Y: mas; j:byte;
Procedure Sliyanie(var U,V: mas; i,ii,j,jj,k: byte); {i, j, ii, jj - указатели концов очередей в массиве U, 
k- указатель конца формируемой в массиве V очереди когда она ещё пуста, k - это номер позиции 
перед будущим началом}
Begin
Repeat k:=k+1;
 If U[i] < U[j] Then
Begin V[k]:= U[i]; i:=i+1;
If i>ii Then Repeat k:=k+1; V[k]:= U[i]; i:=i+1 Until i>ii;
End
Until i>ii
End;
BEGIN Sliyanie(X, Y, 1,4,5,8,0); Sliyanie(X, Y, 9,12,13,16,8);
Sliyanie(Y, X, 1,8,9,16,0);
Writeln('Итог слияния: ');
For j:= 1 to 16 do Write(X[j], ' '); Readln;
END.

Ну, ребята, помогите! Завтра уже сдавать нужно!!!