Easy program to write - currency converter in Turbo Pascal

I need a program which will be written in Turbo Pascal. It must calculate from one currency to other currency, for example from USD to EUR. Minimum 8 currencies. It can be  USD, EUR, GBP, JPY, CHF, PLN, CAD, AUD,

Program must work like that :

1. User write output currency

2. User write final currency

3. User write amount

4. Program convert from first currency to second currency.

Values of currencies can be close to actual on forex market. 

PROGRAM MUST BE WRITTEN IN TURBO PASCAL !