(помогите пожалуйста Pascal)Программа перевода денег из одной валюты в другую по текущему курсу. В программе должен осуществляться запрос: вариант перевода (например: 1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс. Можно еще описать поподробнее как её проверить

Uses  crt;
var  item, rub, doll: real; 
  job: integer;
begin   
writeln(Введите курс ру по отношению к дол: ); 
read(item);//Вводим курс рубль-доллар 
writeln(Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?); 
read(job);//Вводим режим 
case job of
  2:      begin       
writeln(Введите кол-во рублей: );       
 read(rub);//Вводим рубль       
 rub := rub / item;       
writeln(doll = ,rub);
end;
1:      begin       
writeln(Введите кол- во долларов: );       
read(doll);//Вводим доллар       
doll := doll * item;       
 writeln(rub = ,doll);
end;
 end;    
 end.