Перевод программы с Паскаля на Си

/максимальное значение n/
const NMax=8;
/глобальные переменные/
var /зармер матрицы/
n: integer;
/символьные коды строк и столбцов/
hor,ver,
/текущие символьные коды/
curHor,CurVer: Array [1..NMax] of String [NMax+1];
/массив для описания восстанавливаемой карты/
Map: Array [1..NMax, 1..NMax] of char:
/некоторые вспомогательные процедуры и функции/
Procedure Add(Var s : String; ch : Char);
Begin /Добавляет к строке s символ ch/
s:=s+ch;
End;
Procedure Del(Var s: String);
 Begin /удаляется из s последний символ/
s[0]:=s[0]-1;/внулевом байте переменной типа String хранится длина строки/
End;
Function Head(Var s,t :string) : Boolean;
 Begin /проверяет, является ли s началом t/
   Head:=(s=copy(t,1,lenght(s)));
 End;
Procedure Rec (i,j:integer);
 Var qi,qj : boolean;
 Begin 
  If i>n Then <проверить карту; если она правильная ты выставить ее>
  else If j>n Then Rec (i+1,1)
   Else Begin 
Map[i,j]:='*';
Add (CurHor[i],'*');
Add(CurVer[j],'*');
 if Head(Curhor[i],hor[i]) And 
   head (CurVer[j],ver [j])
  Then Rac (i,j+1);
Del (CurHor[i]);
Del (CurVer[j]);
Map[i,j]:=' ';
qi:=(j>1) And (Map [i,j-1]='*');
qj:=(i>1) And (Map [i-1,j]='*');
If qi Then Add(CurHor[i],'  ');
if qj Then Add(CurVer[j],'  ');
if Head(CurHor[i],hor[i]) And
  Head (CurVer[j], ver[j])
 Then Rec (i,j+1);
if qi Then Del(CurHor[i]);
if qj Then Del (CurVer[j]);
End;
End;