Правильно расставить арифметические знаки в выражении - Turbo Pascal

program task( input, output );
const
    n = 3;
type
    vector = array[ 1..n ] of integer;
    ans = array[ 1..n ] of boolean;
var
    a: vector;
    b: ans;
    s: integer;
    flag: boolean;
    
procedure readvector( var a: vector );
var
    i: integer;
begin
    for i := 1 to n do 
        read( a[ i ] );
end;
 
procedure init( var b: ans );
var
    i: integer;
begin
    for i := 1 to n do 
        b[ i ] := false;
end;    
 
procedure findans( s, count: integer );
var
    x: integer;
begin
    if count = n then 
        if a[ n ] = s then b[ n ] := true else
            if a[ n ] = -s then b[ n ] := false else
                flag := false
    else begin
        b[ count ] := true;
        findans( s - a[ count ], count + 1 );
        if not flag then begin
            flag := true;
            b[ count ] := false;
            findans( s + a[ count ], count + 1 );
        end;
    end;
end;
 
procedure writeans( var a: vector; var b: ans );
var
    i: integer;
begin
    for i := 1 to n do begin
        if b[ i ] = true then begin
            if not ( i = 1 ) then write( '+' );
        end
        else write( '-' );
        write( a[ i ] );
    end;
end;
 
begin
flag := true;
read( s );
readvector( a );
init( b );
findans( s, 1 );
if not flag then writeln( 'Incorect data' )
else writeans( a, b );
end.