Не получается выйти из процедуры

var
 Num: array[1..24] of integer;
 Sim: array[1..24] of char;
 N,S,i:integer;
 f1,f2:text;
 
procedure perebor(k,sum:integer);
var
 i:integer;
begin
if k<=N then
 begin
 Sim[k-1]:='+';
 perebor(k+1,sum+Num[k]);
 Sim[k-1]:='-';
 perebor(k+1,sum-Num[k]);
 end
  else
   begin
   writeln(sum);
   if Sum=6 then exit ;   <<<< Здесь процедура продолжает работать Даже Когда сумма равна 6 !!
   end;
end;
 
begin
assign(f1,'expr.in.txt');
reset(f1);
assign(f2,'expr.out.txt');
rewrite(f2);
read(f1,N,S);
readln(f1);
for i:=1 to N do read(f1,Num[i]);
perebor(2,Num[1]);
 
close(f1);
close(f2);
end.

var
  Num: array[1..24] of integer;
  Sim: array[1..24] of char;
  N, S, i: integer;
  f1, f2: text;
 
procedure perebor(k, sum: integer; var stop: boolean);
var
  i: integer;
begin
  if stop then exit;
  
  if k <= N then
  begin
    Sim[k - 1] := '+';
    perebor(k + 1, sum + Num[k], stop);
    Sim[k - 1] := '-';
    perebor(k + 1, sum - Num[k], stop);
  end
  else
  begin
    writeln(sum);
    if Sum = 6 then stop := true;
  end;
end;
 
var
  st: boolean := false;
 
begin
  assign(f1, 'expr.in.txt');
  reset(f1);
  assign(f2, 'expr.out.txt');
  rewrite(f2);
  read(f1, N, S);
  readln(f1);
  for i := 1 to N do read(f1, Num[i]);
  perebor(2, Num[1], st);
  
  close(f1);
  close(f2);
end.