из Паскаля в c++

[Ioane]

Задан текстовый файл. Напечатать в алфавитном порядке все буквы, которые входят в этот текст по 1 разу. Нахождение буквы оформить в виде процедуры.
Код Pascal

Uses
 crt;
Type
 mas = array [0..25] of integer;
 
Procedure symbols(var a:mas;x:string);
Var
 i:integer;
Begin
 For i:=1 to length(x) do
  inc(a[ord(lowcase(x[i]))-97]);
End;
 
Var
 f1:text;
 m:mas;
 x:string;
 i:integer;
Begin
 clrscr;
 assign(f1,'c:\input.txt');
 reset(f1);
 While not eof(f1) do
  Begin
   readln(f1,x);
   symbols(m,x);
  End;
 close(f1);
 For i:=0 to 25 do
  if m[i] = 1 then write(chr(i+97):2);
 readln;
End.

Не знаю как переделать код Паскаля в c++. Помогите, а то я в c++ новичок