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

uses crt;
type kod=set of char;
 var    N, T: kod;
 
 type    a=array [1..10] of string;
 
var st1,st2:a;
 s,i,k,m,j:integer; st3,st4:string;
 begin
   writeln ('введите количество правил');
   readln(m);
  for i:=1 to m do  begin
     readln(st1[i]); end;
         for i:=1 to m do  begin
   readln(st2[i]); end;
  for i:=1 to m do   begin
 
  writeln (st1[i], '->',st2[i]);
  end;
 
   for i:=1 to m do  begin
   st3:=st1[i];
   writeln (st3); end;
      for i:=1 to m do  begin
   st4:=st2[i];
   writeln (st4); end;
    N:=['A'..'Z'];
        T:=['a'..'z','+','-'];
   k:=0;
    if length(st3) <= length(st4)    then  k:=k+1;
    if k=1 then
 for j:=1 to length (st3) do begin
 if ((length(st3)=1) and (st3[j] in N))
    then  k:= k+1     end;
 if k<1 then Writeln('Грамматика - контекстно-зависимая');
  if k=2 then
  for j:=1 to length (st4) do begin
  if ((length(st4)=1) and (st4[j] in T )) or ((length(st4)=2)and ((st4[1] in T) and (st4[2] in N)) )
   or ((length(st4)=2)and ((st4[1] in N) and (st4[2] in T)) )
  then k:=k+1   end;
  if k<2 then writeln('Грамматика - контекстно-свободная');
  if k=3 then
      writeln('Введена Регулярная Грамматика');
 
 End.