Сколько сдачи требуется получить?

program raschet;
 var
   a,b: word;  // Переменные цены товара.
   c,d: word;  // Переменные оплаты товара.
   e,f: word;   // Переменные для выдачи сдачи.
   cod: word;   // Переменная, характеризующая ситуацию с выдачей сдачи.
 
procedure sdacha (a1,b1,c1,d1: word; var e1,f1,cod1: word);
var  //Процедура, вычисляющая сдачу за оплату товара.
  v1,v2: word; // Промежуточные переменные.
begin
   v1:=a1*100 + b1;
   v2:=c1*100 + d1;
   if v2>v1 then  //Проверка условий возможности выдачи сдачи.
     begin
      cod1:=3;
      e1:=(v2-v1) div 100;
      f1:= (v2-v1) -e1*100;
     end
      else
       if v2=v1 then
         begin
          cod1:=2;
          e1:=0;
          f1:=0
         end
         else
           if v2<v1 then
             begin
              cod1:=1;
              e1:=0;
              f1:=0;
             end;
end;
 
 
begin
 
Writeln('Введите цену товара в рублях (целые числа):');
Readln(a);
Writeln('Введите остаток цены товара в копейках (целые числа):');
Readln(b);
Writeln('Введите величину оплаты за товар в рублях (целые числа):');
Readln(c);
Writeln('Введите остаток оплаты за товар к копейках (целые числа):');
Readln(d);
 
sdacha (a,b,c,d,e,f,cod);
 
case cod of
1: Writeln('Оплата не является полной.');
2: Writeln('Оплата произведена в точности, сдача не требуется.');
3: Writeln('Необходимая к выдаче сдача ',e,' руб. ',f,' коп.');
end;
 
readln();
end.