Перевод кода из Pascal в С++

program c4;
 
{ delta - разница между порядковым номером буквы в английском алфавите и ее кодом в таблице ASCII}
const delta = ord('a')-1;
 
var sum: array[1..26] of integer;
    letters: array[1..26] of char;
    s:string;
    i,j,k,tmp:integer;
    c:char;
 
begin
 // инициализируем массивы в массив
 for i:=1 to 26 do
 begin
     sum[i] := 0;
     letters[i] := chr(ord(i)+delta);
 end;
 s:='';
 while s<>'*' do
 begin
    // Дополняем строку пробелом спереди. 
    // Так мы можем не проверять отдельно первый символ.
    s := ' '+s;
    for i:=1 to length(s)-1 do
    begin
       // Проверка начала слова
       if (s[i]=' ') and (s[i+1]<>' ') then
          inc(sum[ord(s[i+1])-delta]);
    end;
    // Считываем следующую строку
    readln(s);
 end;
 // Сортируем пузырьком синхронно два массива: частот и букв
 // Критерий сортировки: по убыванию частот
 for k:=1 to 26 do
     for j:=1 to 26-k do
     begin
        if sum[j]<sum[j+1] then
        begin
           tmp:=sum[j];
           sum[j]:=sum[j+1];
           sum[j+1]:=tmp;
           c:=letters[j];
           letters[j]:=letters[j+1];
           letters[j+1]:=c;
        end;
     end;
 i:=1;
 // Выводим все ненулевые элементы массива
 for i:=1 to 26  do
 begin
     if sum[i]>0 then
        writeln(letters[i],' ', sum[i]);
 end;
 readln;
end;