Определите, какой набор купюр выдаст банкомат

Var
  d, t: Integer;
Begin
  ReadLn(d);
  t := 0;
  While (d Mod 5000 > 0) Do
    Begin
      d := d Mod 5000;
      Inc(t);
    End;
  Write('= ', t, '*5000');
  t := 0;
  While (d Mod 1000 > 0) Do
    begin
      d := d Mod 1000;
      Inc(t);
    End;
  Write('+', t, '*1000');
  t := 0;
  While (d Mod 500 > 0) Do
    begin
      d := d Mod 500;
      Inc(t);
    End;
  Write('+', t, '*500');
  t := 0;
  While (d Mod 100 > 0) Do
    Begin
      d := d Mod 100;
      Inc(t);
    End;
  Write('+', t, '*100');
  t := 0;
  While (d mod 50 > 0) Do
    Begin
      d := d Mod 50;
      Inc(t);
    End;
  Write('+', t, '*50');
  t := 0;
  While (d Mod 10 > 0) Do
    begin
      d := d Mod 10;
      Inc(t);
    End;
  Write('+', t, '*10');
  Readln;
End.

uses crt;
var s:longint;
    k:integer;
begin
clrscr;
repeat
write('Сумма(натуральное число, кратное 10)=');
readln(s);
until (s>0)and(s mod 10=0);
k:=s div 5000;
s:=s mod 5000;
k:=k+s div 1000;
s:=s mod 1000;
k:=k+s div 500;
s:=s mod 500;
k:=k+s div 100;
s:=s mod 100;
k:=k+s div 50;
s:=s mod 50;
k:=k+s div 10;
write('k=',k);
readln
end.

uses crt;
const N = 6;
value: array[1..N] of integer = (5000, 1000, 500, 100, 50, 10);
 
var i,S:integer;
begin
 clrscr;
 write('S -> ');
 readln(S);
 for i:=1 to N do
 begin
  writeln(value[i],' руб. - ',S div value[i]):
  S := S mod value[i];
 end;
 readln;
end.