Помогите перевести код с Pascal на C++ [требует правки]

 program state;
 const MaxState = 50;
 var  name : array [1..MaxState] of string[25];
 fl : array [1..MaxState] of boolean;
 kol, maxkol : array [1..Maxstate] of byte;
 n, max, j, k, i : byte;
 f  : text;
 flag : boolean;
 function next (st1, st2: string) : boolean;
 begin
 if st1[length(st1)] = st2[1] then next := true
 else next := false;
 end;
 begin
 assign(f,'input.txt'); reset(f); 
 readln(f,n);
 n := 0;
 repeat
 inc(n); readln(f, Name[n]);
 until eof(f);
 close(f);
 flag := false;
 for i:=1 to n do fl[i] := true;
 j := 0; k := 0; max := 0;
 repeat
 while (k < n) do
 begin
 inc(k);
 if (j = 0) or (next(Name[kol[j]], Name[k]) and fl[k]) then
 begin
 inc(j); kol[j] := k;
 fl[k] := false;
 k := 0;
 end;
 end;
 if (j > max) and next(Name[kol[j]], Name[kol[1]]) then
 begin
 max := j;
 maxkol := kol;
 end;
 if j>0 then
 begin
 k := kol[j]; dec(j);
 fl[k] := true;
 end
 else flag := true;
 until flag;
 assign(f, 'output.txtl'); rewrite(f);
 if max = 0 then writeln(f,'0') else
 begin
 writeln(f, max);
 end;
 close(f);
 end.

P.S. Писал не я.