Перевод кода из Pascal/VB в C++

      uses crt;
      TYPE fff=FILE OF CHAR;
      var f,g:fff;
      PROCEDURE vvod(var f:fff);
      var c:string;
          i:INTEGER;
          a:CHAR;
      BEGIN
       writeln('Vvedite simvoli');
       repeat
        readln(c);
        FOR i:=1 TO LENGTH(c) DO WRITE(f,c[i]);
        WRITE('Prodolzhit? y/n ');
        readln(a);
       until a='n';
      END;
      PROCEDURE vivod(var f:fff);
      var c:CHAR;
      BEGIN
       WHILE NOT eof(f) DO
       BEGIN
        read(f,c);
        WRITE(c);
       END;
       writeln;
      END;
      PROCEDURE obrabotka(var f,g:fff);
      var c:CHAR;
          i:INTEGER;
          f1:BOOLEAN;
      BEGIN
       f1:=FALSE;
       WHILE NOT eof(f) DO
       BEGIN
        read(f,c);
        IF f1 THEN WRITE(g,c);
        IF c='a' THEN f1:=TRUE
        ELSE f1:=FALSE;
       END
      END;
      BEGIN
       clrscr;
       assign(f,'f:\sss.lab');
       assign(g,'f:\ggg.lab');
       rewrite(f);
       vvod(f);
       reset(f);
       clrscr;
       writeln;
       writeln('Ishodniy fayl:');
       vivod(f);
       reset(f);
       rewrite(g);
       obrabotka(f,g);
       reset(g);
       writeln;
       writeln('Obrabotanniy fayl:');
       vivod(g);
       readln;
      END.

uses crt,graph;
var x,y,gd,gm:INTEGER;
    SIZE:word;
    p1,p2:pointer;
BEGIN
gd:=vga;gm:=2;
initgraph(gd,gm,'');
SIZE:=ImageSize(0,0,20,100);{размер области}
setlinestyle(0,0,3);
{первый образ}
pieslice(10,10,0,360,10);
fillellipse(10,40,10,20);
line(8,60,0,100);line(12,60,20,100);
{второй образ}
pieslice(60,10,0,360,10);
fillellipse(60,40,10,20);
line(60,60,60,100);
getmem(p1,SIZE);
getimage(0,0,20,100,p1^);
getmem(p2,SIZE);
getimage(50,0,70,100,p2^);
cleardevice;
x:=0;y:=200;
line(0,300,640,300);
repeat
putimage(x,y,p1^,1);
delay(150);
putimage(x,y,p1^,1);
putimage(x,y,p2^,1);
delay(150);
putimage(x,y,p2^,1);
x:=x+10;
until x>getmaxX-20;
freemem(p1,SIZE);
freemem(p2,SIZE);
readln
END.