Из старого доброго Паскаля в Си++

[Evielle]

Буду очень признателен за помощь!
Требуется перевести вот эту программу, меняющую местами слова, которые разделены союзом "и".
Массив за 25, не спрашивайте почему, это моя заморочка. Максимальная строка в 255 символов.

program pr1;
var c:char;
s,m:string;
i, n:integer;
a:array[1..25]of string;
f1, f2:text;
begin
i:=1;
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
while not eof(f1) do
begin
     read(f1,c);
     s:=s+c;
     if (ord(c)=32) or eof(f1) then
     begin
          a[i]:=s;
          i:=i+1;
          s:='';
     end;
end;
for n:=1 to i do
begin
    if (a[n]='и ') or (a[n]='И ') then
    begin
         m:=a[n-1];
         a[n-1]:=a[n+1];
         a[n+1]:=m;
    end;
end;
rewrite(f2);
for n:=1 to i do
write(f2,a[n]);
close(f2);
close(f1);
end.