Народ хелп нужна помощь решите задачу в паскале

Так?: Program P1; Uses Crt; Var s, m4, m3, m2, m1: Word; BeginClrScr; Write ('Введи сумму денег: '); Readln (s); m4: =s div 10000; s: =s mod 10000; m3: =s div 1000; s: =s mod 1000; m2: =s div 100; s: =s mod 100; m1: =s div 10; s: =s mod 10; Writeln (m4, ' по 10000, ', m3, ' по 1000, ', m2, ' по 100, ', m1, ' по 10, ', s, ' по 1'); Readln; End.