¿Alguien me puede ayudar con un programa de Turbo Pascal?

[OYEME]

mira no me acuerdo exactamnet la sintaxis del pascal pero en c seria asi:
int ar1[10]
ma=0;
for(i=1;i<=10;i++){
cout<<"Ingrese NUmero";cin>>ar1[i];
if(ar1[i]>ma) ma=ar1[i]
}