求大神将下面的c++程序转成pascal

#include<bits/stdc++.h>
using namespace std;
int ans[20202];
struct o{
    int no,h,l,r,ansl,ansr;
}a[10101
int n;
bool cmp1(o x,o y){
    return x.h<y.h;
}
bool cmp2(o x,o y){
    return x.no<y.no;
}
int main(){
    cin>>n;
    for (int i=0;i<n;i++){
        a.no=i+1;
        cin>>a.h>>a.l>>a.r;
   
    }
    sort(a,a+n,cmp1);
    for (int i=0;i<n;i++){
        a.ansr=ans[a.r];
        a.ansl=ans[a.l];
        for (int j=a.l+1;j<=a.r-1;j++){
            ans[j]=a.no;
        }
    }
    sort(a,a+n,cmp2);
    for (int i=0;i<n;i++){
        cout<<a.ansl<<" "<<a.ansr<<endl;
    }
    return 0;
}[/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i]

如果朋友在此没有征集到好的回答，建议这位朋友去360问答社区（http://wenda.so.com/）相关分类中征集回答，360问答社区的平台上不但有非常多的热心网友和牛人们能帮助到你！同时有了满意答案后还能帮助到其他不懂这个问题的人！感谢朋友对360问答支持！友情提示，悬赏征集会助于你问题的快速解决！一旦有能解决朋友问题的答案的时候，朋友要记得采纳，这样会换来更多朋友的帮助！