Hogy kell ezt megprogramozni pascalban ezek használatával?

EZ lenne maga a feladat:

A program kérjen be egy pénzösszeget, majd határozza meg, és írja ki, hogy hogyan fizethetjük ki a lehető legkevesebb 10, 5, 2 és 1 koronás érmével (használjuk az első fejezet tananyagában megismert mod és div műveleteket)!

példa:

Kifizetendo penzosszeg: 26

2 darab 10 koronas erme,

1 darab 5 koronas erme,

0 darab 2 koronas erme,

1 darab 1 koronas erme.

Ezeket használhatnám benne: write, writeln, var (integer,string, read, readln, div és mod. Ezeket tanította nekem szóval ezekkel meg lehetne oldani. Én idáig jutottam:

program nehez;

var a,b,c,d,e,f,g,h,i:integer;

begin

writeln('irjon be egy osszeget, en meg megmondom h fizessen');

write('kifizetendo osszeg');

readln(a);

writeln;

b:=10;

c:=5;

d:=2;

e:=1;

f:=a div 10;

g:=(a mod 10) div 5;

h:=(g mod 5) div 2;

i:=(h mod 2) div 1;

writeln(f,' darab 10 koronas erme');

writeln(g,' darab 5 koronas erme');

writeln(h,' darab 2 koronas erme');

writeln(i,' darab 1 koronas erme');

end.

gondolom a f,g,h,i résznél van a baj, de egyszerűen nem tudom megoldani ezt a feladatot.