Задача про монеты Опции

[Lodar']

задача такая: Cоставить программу определяющюю сдачу с рубля наименьшим количеством монет.
Используемые монеты: 1коп, 2коп, 3коп, 5коп, 10коп, 15коп, 20коп, 50коп

[Lodar']

 program Pr1;
const
  Nmonet=8;
type
   Tmassive=array[1..Nmonet] of real;
var
  sdaha,price:real;
  monet:Tmassive;
  numb:integer;
function Podshet(const rnd:real):integer;
var
  tmp:real;
  i,count:integer;
begin
  count:=0;
  tmp:=rnd;
  i:=1;
  repeat
      if tmp-monet[i]>=0 then
       begin
        tmp:=tmp-monet[i];
        count:=count+1;
       end
      else
         i:=i+1;

  until tmp=0 ;
Podshet:=count;
end;
procedure fillMass;
begin
  monet[1]:=0.5;
  monet[2]:=0.2;
  monet[3]:=0.15;
  monet[4]:=0.1;
  monet[5]:=0.05;
  monet[6]:=0.03;
  monet[7]:=0.02;
  monet[8]:=0.01;
end;
begin
  fillMass;
  writeln('Vvedite LLEHY TOBAPA');
  readln (price);
  sdaha:=1-price;
  numb:=Podshet(sdaha);
  writeln(numb);
  readln;
end.