Traduction

Bonjour,
slt tous mes amis
je suis besoin de votre aide une autre fois
j'ai un code
en Pascal
je veut le traduire en c++
aider moi svp
voici le code



uses wincrt;
type tab=array[1..27] of string;
var t:tab;
ch4,ch1,ch2,ch3:string[3];
j,i:integer;
function min(t:tab;i:integer):integer;
var m,j:integer;
begin
m:=i;
for j:=i+1 to 26 do
if(t[j]min:=m;
end;
procedure permut(var t:tab;i,p:integer);
var c:string;
begin
c:=t[i];
t[i]:=t[p];
t[p]:=c;
end;
procedure tri(var t:tab);
var i,p:integer;
begin
for i:=1 to 26 do
begin
p:=min(t,i);
if(i<>p) then permut(t,i,p);
end;
end;
function verif(t:tab;cc:string;k:integer):boolean;
var i:integer;
tr:boolean;
begin
i:=1;
tr:=false;
while(i<=k) and (tr=false) do
if(t[i]=cc) then tr:=true
else i:=i+1;
if(i>k)then verif:=false
else verif:=true;
end;
begin
randomize;
str(random(3)+1,ch1);
str(random(3)+1,ch2);
str(random(3)+1,ch3);
ch4:=ch1+ch2+ch3;
t[1]:=ch4;
j:=1;
randomize;
while(j<=26) do
begin
str(random(3)+1,ch1);
str(random(3)+1,ch2);
str(random(3)+1,ch3);
ch4:=ch1+ch2+ch3;
if(verif(t,ch4,j)=false) then
begin
j:=j+1;
t[j]:=ch4;
end;
end;
tri(t);
for i:=1 to 26 do
writeln(t[i]);
end.