求大神帮忙将C语言源码转换成pascal

#include<iostream>
usingnamespacestd;
inthead[7001];
inte[18001][3];//边的目标节点,边权,下一条边
boolpd[7001][60];
intet;
voiddfs(intx,inty)
{
intc;
if(pd[x][y])return;
pd[x][y]=1;
c=head[x];
while(c>0)
{
dfs(e[c][0],((y+e[c][1])%60+60)%60);
c=e[c][2];
}
}
voidinsert(intu,intv,intw)
{
et++;
e[et][0]=u;
e[et][1]=w;
e[et][2]=head[v];
head[v]=et;
}
intmain()
{
intn,m,u,v,w;
et=0;
cin>>n>>m;
for(inti=1;i<=m;i++)
{
cin>>u>>v>>w;
insert(u,v,w);
insert(v,u,w);
}
dfs(1,0);
for(inti=0;i<=59;i++)
{
if(pd[2][i])
{
if(i<10)cout<<0;
cout<<i;
return0;
}
}
cout<<60;
return0;
帮忙转成pascal语言