Convertion calendrier

Bonjour,

voici mon programme C de convertion de calendrier(gregorien-musulman) et je ne sais pas traduire en PASCAL.
#include <stdlib.h>
#include <stdio.h>
#include <math.h>

int main()
{

fflush(stdin);
int jour,mois,annee,y,nbf,anneem,moism;
int annee29,annee30,mois29,mois30,cycle,cyclef,nb_cycle,cyclec,cyclei;
int m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13;
float x,u;
char jourm;


do
{
system("cls");fflush(stdin);
printf("Veuillez entrer une date Gregorienne sous la forme suivante : (jj/mm/aaaa)\n>> ");
scanf("%d/%d/%d",&jour,&mois,&annee);

if((annee%4==0&&annee%100!=0) || (annee%400==0)) nbf=29;
else nbf=28;

if(mois==02&&jour>nbf)y=0;
else y=1;

}while(jour<1 || jour>31 || mois<1 || mois>12 || y==0);

switch (mois)
{
case 1:x=jour+(annee*365.2425)+251;break;
case 2:x=(31+jour)+(annee*365.2425)+251;break;
case 3:x=(31+nbf+jour)+(annee*365.2425)+251;break;
case 4:x=(62+nbf+jour)+(annee*365.2425)+251;break;
case 5:x=(92+nbf+jour)+(annee*365.2425)+251;break;
case 6:x=(123+nbf+jour)+(annee*365.2425)+251;break;
case 7:x=(153+nbf+jour)+(annee*365.2425)+251;break;
case 8:x=(184+nbf+jour)+(annee*365.2425)+251;break;
case 9:x=(214+nbf+jour)+(annee*365.2425)+251;break;
case 10:x=(245+nbf+jour)+(annee*365.2425)+251;break;
case 11:x=(275+nbf+jour)+(annee*365.2425)+251;break;
case 12:x=(306+nbf+jour)+(annee*365.2425)+251;break;
default:printf("Mois invalide");break;
}

anneem=(x-227180.835)/354.37;
printf("Annee musulmane:%d\n\n",anneem);

m1=m3=m5=m7=m9=m11=mois30=30;
m2=m4=m6=m8=m10=mois29=29;


nb_cycle=((x-227180.835)/(354.37))/30;

annee29=m2+m4+m6+m8+m10+mois29;
annee30=m1+m3+m5+m7+m9+m11+mois30;

cycle=annee29*19 + annee30*11;


for(cyclei=0; cyclei>=nb_cycle ; cyclei=cyclei+30)
{




}

printf("cycle= %d\n\n",cyclef);

system("pause");
return 0;
}


aider moi a traduire,SVP.
Merci d'avance.