Помогите пожалуйста перевести код с Pascal на lС++ [требует правки]

var s:string;
    i,j,k,ks,kp:byte;
    m:set of char;
begin
 write('введите строку: ');readln(s);
 repeat
  write('0<k<=',length(s),' k = ');readln(k);
 until (0<k)and(k<=length(s));
 s:=s+' ';
 write(k,'-ю позицию покрывает ');
 if s[k]=' ' then begin write('пробел, предыдущее ');while s[k]=' ' do dec(k) end
             else begin repeat inc(k) until s[k]=' ';dec(k) end;
 delete(s,k+1,length(s)-k);
 ks:=0;
 while pos(' ',s)>0 do begin delete(s,1,pos(' ',s));if s[1]<>' ' then inc(ks) end;
 writeln('слово: ',s,' с порядковым номером: ',ks);
 kp:=1;m:=[];
 for i:=1 to length(s) do
  for j:=i+1 to length(s) do
   if (s[i]=s[j])and(not(s[i] in m)) then begin include(m,s[i]);inc(kp) end;
 writeln('повторяющихся символов: ',kp)
end.