Untitled

uses sequence;

const MAX_NUM = 50;

var
    seq: string;
    len: integer;
    i: integer;
    words: array[1..MAX_NUM] of string;
    w: string;
begin
    seq := read_sequence();
    len := split_sequence(seq, words);
    writeln('Исходная строка: ', seq);

    for i := 1 to len do
    begin
        w := words[i];
        if (length(w) > 1) and (length(w) mod 2 <> 0) then
            delete(words[i], length(w) div 2 + 1, 1);
    end;

    write('Новая строка: ');
    print_sequence(words, len);
end.