Dev - C++ - Necesito Convertir Codigo Pascal a C++

Hola a todos! tengo un problema q me sta qitando el sueño, necesito llevar código fuente desde pascal a C++ y nose como hacerlo, me dijeron q existe una programa q hace esta operacion pero no se donde encontrarlo, por favor si saben donde encontrarlo o cualqier otro dato, favor avísenme.
Nota.- No se lenguaje C++ >=/

CONST n = ...; (* numero de vertices del grafo *)
TYPE MATRIZ = ARRAY[1..n],[1..n] OF BOOLEAN;
PROCEDURE Warshall (VAR L,D:MATRIZ);
VAR i,j,k: CARDINAL;
BEGIN
FOR i:=1 TO n DO
FOR j:=1 TO n DO
D[i,j]:=L[i,j]
END
END;
FOR k:=1 TO n DO
FOR i:=1 TO n DO
FOR j:=1 TO n DO
D[i,j]:=D[i,j] OR (D[i,k] AND D[k,j])
END
END
END
END Warshall

Mira yo tengo el mismo problema, y lo que estoy haciendo yo (por suerte son 200 lineas de codigo) , si encontras el programa avisa nomas jaja

uses
wincrt;

var
otro:char; numt:string;
tamnum:integer; bloque:integer; bloques:integer;
bloques2:integer; n:integer; brest:integer;

unidades:array[1..9] of string;
decenas:array[1..9] of string;
oncenas:array[1..9] of string;
centenas:array[1..9] of string;
palabras:array[1..5] of string;

dluni:string[1]; duni:integer;
dldec:string[1]; ddec:integer;
dlcen:string[1]; dcen:integer; codigo:integer;

uni:string; dec:string; cen:string;
tx:string; tx1:string;
numlet:string; nletra:string;
blk:string[3]; restante:string;

begin
unidades[1]:='un ';
unidades[2]:='dos ';
unidades[3]:='tres ';
unidades[4]:='cuatro ';
unidades[5]:='cinco ';
unidades[6]:='seis ';
unidades[7]:='siete ';
unidades[8]:='ocho ';
unidades[9]:='nueve ';

decenas[1]:='diez ';
decenas[2]:='veinti';
decenas[3]:='treinta ';
decenas[4]:='cuarenta ';
decenas[5]:='cincuenta ';
decenas[6]:='sesenta ';
decenas[7]:='setenta ';
decenas[8]:='ochenta ';
decenas[9]:='noventa ';

oncenas[1]:='once ';
oncenas[2]:='doce ';
oncenas[3]:='trece ';
oncenas[4]:='catorce ';
oncenas[5]:='quince ';
oncenas[6]:='dieciséis ';
oncenas[7]:='diecisiete ';
oncenas[8]:='dieciocho ';
oncenas[9]:='diecinueve ';

centenas[1]:='ciento ';
centenas[2]:='doscientos ';
centenas[3]:='trescientos ';
centenas[4]:='cuatrocientos ';
centenas[5]:='quinientos ';
centenas[6]:='seiscientos ';
centenas[7]:='setecientos ';
centenas[8]:='ochocientos ';
centenas[9]:='novecientos ';

palabras[1]:='y ';
palabras[2]:='mil ';
palabras[3]:='millones ';
palabras[4]:='billones ';
palabras[5]:='trillones ';

repeat
clrscr;
uni:=''; dec:='';cen:='';tx:='';numlet:='';nletra:='';tx1:='';
write('Ingresa un número...'); readln(numt);
bloques:=(length(numt) div 3); bloques2:=length(numt) mod 3;

if bloques2 = 1 then
begin
numt:='00'+numt;
bloques:=bloques+1;
end
else if bloques2 = 2 then

begin
numt:='0'+numt;
bloques:=bloques+1
end;

restante:=numt;
brest:=0;

for bloque:=1 to bloques do
begin
tamnum:=length(restante);
blk:=restante[tamnum-2]+restante[tamnum-1]+restante[tamnum];

dluni:=blk[3];
dldec:=blk[2];
dlcen:=blk[1];

val(dluni,duni,codigo);
val(dldec,ddec,codigo);
val(dlcen,dcen,codigo);

if (duni<>0) or (ddec<>0) or (dcen<>0) then
begin
uni:=unidades[duni];
dec:=decenas[ddec];
cen:=centenas[dcen];

if (ddec=1) and (duni<>0) then
begin
dec:=oncenas[duni];
uni:=''
end;
if (dcen=1) and (ddec=0) and (duni=0) then
begin
cen:='cien ';
uni:='';
dec:=''
end;
if (ddec=2) and (duni=0) then
begin
dec:='veinte ';
uni:=''
end;
if (ddec>=3) and (duni<>0) then
tx:=palabras[1]
else
tx:='';

if duni=0 then
uni:='';

if ddec=0 then
dec:='';

if dcen=0 then
cen:='';

if bloque mod 2 =0 then
tx1:=palabras[2]
else if (bloque >=3) and (bloque mod 2<>0) then
begin
tx1:=palabras[bloque-brest];
brest:=brest+1;
end;

numlet:=cen+dec+tx+uni+tx1;
end;

nletra:=numlet+nletra;
restante:='';
for n:=1 to tamnum-3 do
restante:=restante+numt[n];

end;
writeln(nletra,'PESOS M.N.');

write('otra conversión (S/N): ');
readln(otro);
otro:=upcase(otro);
until (otro<>'S') and (otro='N')
end.

necstito convertir Q 100.00 a monedas de 25 centavos

CURSO DE MANEJO DE PASCAL 7.0