Задача на паскале (набрать заданную сумму денег)

[Старый Gilbert]

Здравствуйте. помогите решить задачу на паскале.
Заданы количества монет достоинством 1,2,3,4,5,10 рублей. Можно ли из этих монет набрать заданную сумму. Если да, то указать как это сделать.
Начало сделал и то наверно не правильно...\
program zadacha;
uses crt;
var a,b,,kol,sum : integer;
begin
clrscr;
sum:=0;
kol:=0;
writeln ('Введите количества монет');
readln (a) ;
writeln ('Введите нужную сумму');
readln (b) ;

[Летучий_СкилетиК]

Раскладываем заданную сумму, на все возможные суммы и проверяем на входимость

type
    mass=array[byte] of longint;
procedure summ(var x:mass;var l:integer);
var s,j,i:integer;
begin
     i:=l-1;
     s:=x[l];
     while (i>1)and(x[i-1]<x[i]) do
     begin
          s:=s+x[i];
          i:=i-1;
     end;
     x[i]:=x[i]+1;
     l:=s+i-1;
            for j:=i+1 to l do
            x[j]:=1;
end;
var a:mass;n,i,j,l:integer;
f:boolean;
begin
     readln(n);
     for i:=1 to n do
     begin
          a[i]:=1;
          write(a[i],' ');
     end;
     l:=n;
     writeln;
     repeat
           summ(a,l);
           f:=true;
           for i:=1 to l do
              if not(a[i]  in [0..5,10]) then f :=false;
           if f then
               for i:=1 to l do
               write(a[i],' ');
           writeln;
     until l=1;
  readln;
end.

[Старый Gilbert]

спасибо =) а без процедур никак да?

[Летучий_СкилетиК]

Сообщение от Старый Gilbert

спасибо =) а без процедур никак да?

а разница какая?, да никакой просто без процедуры код становиться громоздким и не читаемым

    var N,i,L,s,j:byte;
       	X:array [byte] of byte;
        g : boolean;

begin
    readln(N);
    L:=N;
    for i:=1 to L do
    begin
       X[i]:=1;
       write(x[i],' ');
    end;
    writeln;
    repeat
      i:=L-1;s:=X[L];
      while (i>1)and(X[i-1]<=X[i]) do
      begin
          s:=s+X[i];
          dec(i)
      end;
      inc(X[i]);
      L:=i+s-1;
           for j:=i+1 to L do
              X[j]:=1;
      g := true;
      for i:=1 to L do
      if not( x [i] in [1..5,9])then g := false;
      if (g) then
      begin
          for i:=1 to L do
          write(X[i]);
          writeln;
      end;
    until L=1;
    readln
end.

[Старый Gilbert]

зацикливание происходит