Почему не выводиться ответ в выходной файл?

{На одном острове каждый из его жителей организовал партию, которую сам и возглавил.
Отметим, что, к всеобщему удивлению, даже в самой малочисленной партии оказалось не менее двух человек.
К сожалению, финансовые трудности не позволили создать парламент, куда вошли бы, как предполагалось по Конституции острова, президенты всех партий.
И чтобы от каждой партии был хотя бы один член, нужно было решить следующую задачу: "Дан массив А(N) и число М.
Найти такое множество элементов A(i1),A(i2),...A(ik) (1<=i1<...<ik<=N), что A(i1)+A(i2)+...+A(ik)=M.
Предполагается, что такое множество заведомо существует".
Ввод
Во входном файле в первой строке записаны 2 числа M и N  - число М, которому должна равняться сумма множества элементов,
которое нужно найти и количество элементов массива соответственно. Во второй строке через пробел идут положительные целые числа a[i] - сами элементы массива.
Вывод
В выходной файл нужно вывести множество элементов, удовлетворяющее условию A(i1),A(i2),...A(ik) (1<=i1<...<ik<=N), что A(i1)+A(i2)+...+A(ik)=M.
Пример
z.in
5 3
0 1 4
z.out
0 1 4
z.in
5 5
2 3 8 9 1
z.out
2 3}
Program CPC_1_1;
uses crt;
var i,j,s,m,n:LongInt;
    a:array[1..30]of integer;
    f_in,f_out:text;
 Begin
   assign(f_in,'z.in');
   reset(f_in);
   assign(f_out,'z.out');
   rewrite(f_out);
   readln(f_in,m);
   readln(f_in,n);
   for i:=1 to n do
    begin
     readln(f_in,a[i]);
    end;
    for i:=1 to n do
     begin
      s:=s+a[i];
      if s=m then for j:=1 to i do write(f_out,' ',a[j]);
     end;
      writeln ('Программа Завершена!');
   close(f_in);
  close(f_out);
 End.