Create sursa - pascal