Найти самое длинное слово, начинающееся с согласной буквы, и поменять его с последним словом в строке (Pascal -> C++)

uses wincrt;
var
    numb : array[1..20] of byte;
       s : string;
  sg, zn : set of char;
 j, n, i : byte;
      s1 : array [1..20] of string;
   s_Max : string[20];
   l_max : byte;
   k_max : byte;
   c : char;
 
begin
  writeln('Введите строку : '); readln(s);
 
  sg := ['a'..'z','а'..'я'] -
        ['a', 'e', 'i', 'o',
         'u', 'y', 'а', 'е',
         'и', 'о', 'у', 'э', 'є'];
 
 
  zn := ['.', ' ', ';', ':', '!', '?'];
 
   s := s + ' ';
   n := length(s);
   j := 1;
 
  for i:=1 to n do
     begin
        s1[j] := s1[j] + s[i];
 
        if s[i] in zn
           then
              begin
                 numb[j] := i - length(s1[j]) + 1;
                 inc(j);
              end;
     end;
   dec(j);
 
   for i:=1 to j do
      if (length(s1[i]) > l_max) and
         (s1[i,1] in sg)
         then
            begin
               s_max := s1[i];
               k_max := numb[i];
               l_max := length(s1[i]);
            end;
 
   delete(s, numb[j], length(s1[j]) );
   insert(s_max, s, numb[j] );
 
   delete(s, k_max, l_max);
   insert(s1[j], s, k_max);
 
   writeln;writeln('stroka:');
   write(s);
end.