Create Comparsion.dpr

Delphi (Pascal) realisation