program palindromeRearranging;
 
function palindromeRearranging(inputString: string): boolean;
var i, j, count : integer;
    check, rs : boolean;
    c, d : char;
begin
    rs := true;
    check := false; d := '!';
    for i := 1 to length(inputString) do
    begin
        c := inputString[i];
        count := 0;
        for j := 1 to length(inputString) do
            if(c = inputString[j]) then count := count + 1;
 
        if(count mod 2 <> 0) then
            if((check = true) and (d <> c)) then rs := false
            else
            begin
                check := true;
                d := c;
            end;
    end;
    palindromeRearranging := rs;
end;
 
var inputString : string;
begin
	inputString := 'z';
	writeln(palindromeRearranging(inputString));
	inputString := 'abbcabb';
	writeln(palindromeRearranging(inputString));
end.

cHJvZ3JhbSBwYWxpbmRyb21lUmVhcnJhbmdpbmc7CgpmdW5jdGlvbiBwYWxpbmRyb21lUmVhcnJhbmdpbmcoaW5wdXRTdHJpbmc6IHN0cmluZyk6IGJvb2xlYW47CnZhciBpLCBqLCBjb3VudCA6IGludGVnZXI7CiAgICBjaGVjaywgcnMgOiBib29sZWFuOwogICAgYywgZCA6IGNoYXI7CmJlZ2luCiAgICBycyA6PSB0cnVlOwogICAgY2hlY2sgOj0gZmFsc2U7IGQgOj0gJyEnOwogICAgZm9yIGkgOj0gMSB0byBsZW5ndGgoaW5wdXRTdHJpbmcpIGRvCiAgICBiZWdpbgogICAgICAgIGMgOj0gaW5wdXRTdHJpbmdbaV07CiAgICAgICAgY291bnQgOj0gMDsKICAgICAgICBmb3IgaiA6PSAxIHRvIGxlbmd0aChpbnB1dFN0cmluZykgZG8KICAgICAgICAgICAgaWYoYyA9IGlucHV0U3RyaW5nW2pdKSB0aGVuIGNvdW50IDo9IGNvdW50ICsgMTsKICAgICAgICAKICAgICAgICBpZihjb3VudCBtb2QgMiA8PiAwKSB0aGVuCiAgICAgICAgICAgIGlmKChjaGVjayA9IHRydWUpIGFuZCAoZCA8PiBjKSkgdGhlbiBycyA6PSBmYWxzZQogICAgICAgICAgICBlbHNlCiAgICAgICAgICAgIGJlZ2luCiAgICAgICAgICAgICAgICBjaGVjayA6PSB0cnVlOwogICAgICAgICAgICAgICAgZCA6PSBjOwogICAgICAgICAgICBlbmQ7CiAgICBlbmQ7CiAgICBwYWxpbmRyb21lUmVhcnJhbmdpbmcgOj0gcnM7CmVuZDsKCnZhciBpbnB1dFN0cmluZyA6IHN0cmluZzsKYmVnaW4KCWlucHV0U3RyaW5nIDo9ICd6JzsKCXdyaXRlbG4ocGFsaW5kcm9tZVJlYXJyYW5naW5nKGlucHV0U3RyaW5nKSk7CglpbnB1dFN0cmluZyA6PSAnYWJiY2FiYic7Cgl3cml0ZWxuKHBhbGluZHJvbWVSZWFycmFuZ2luZyhpbnB1dFN0cmluZykpOwplbmQu