Cajero Automático en Pascal

PROGRAM CAJERO;
USES wincrt;
var
     can,a,b,c,d,e,f,g,h,i,j,k:integer;

begin
writeln('Que cantidad deseas retirar');
readln(can);
a:=can div 100;
b:=can mod 100;
c:=b div 50;
d:=b mod 50;
e:=d div 20;
f:=d mod 20;
g:=f div 10;
h:=f mod 10;
i:=h div 5;
j:=h mod 5;
k:=j div 2;
writeln('La Cantidad en Bs es ');
writeln(a,' de 100');
writeln(c,' de 50');
writeln(e,' de 20');
writeln(g,' de 10');
writeln(i,' de 5');
writeln(k,' de 2');
readln;
end.