Вычислить коэффициенты многочлена, являющегося суммой многочленов

type
    TArray = Array[Byte] Of ShortInt;
 
procedure Shifting(var a: TArray; const len, shift: Byte);
var
    i: Byte;
begin
    for i := len - 1 downto 0 do
        a[i + shift] := a[i];
    for i := 0 to shift - 1 do
        a[i] := 0;
end;
 
function Max(const x, y: Byte): Byte;
var
    Result: Byte;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    Max := Result;
end;
 
procedure DoSmth(b, c: TArray; const n, m: Byte; var d: TArray; var l: Byte);
var
    i: Byte;
begin
    l := Max(n, m);
    if (n > m)
    then
        Shifting(c, m, n - m)
    else
        Shifting(b, n, m - n);
    for i := 0 to l - 1 do
    begin
        d[i] := b[i] + c[i];
        Write(' ', d[i]);
    end;
end;
 
var
    b, c, d: TArray;
    i, n, m, l: Byte;
begin
    Write('n='); ReadLn(n);
    for i := 0 to n - 1 do
    begin
        Write('B', i + 1, '=');
        ReadLn(b[i]);
    end;
    Write('m='); ReadLn(m);
    for i := 0 to m - 1 do
    begin
        Write('C', i + 1, '=');
        ReadLn(c[i]);
    end;
    DoSmth(b, c, n, m, d, l);
end.

procedure DoSmth(b, c: TArray; const n, m: Byte; var d: TArray; var l: Byte);
var
    i: Byte;
    function Max(): Byte;
    var
        Result: Byte;
    begin
        if (n > m)
        then
            Result := n
        else
            Result := m;
        Max := Result;
    end;
    procedure Shifting(var a: TArray; const len, shift: Byte);
    var
        i: Byte;
    begin
        for i := len - 1 downto 0 do
            a[i + shift] := a[i];
        for i := 0 to shift - 1 do
            a[i] := 0;
    end;
begin
    l := Max();
    if (n > m)
    then
        Shifting(c, m, n - m)
    else
        Shifting(b, n, m - n);
    for i := 0 to l - 1 do
    begin
        d[i] := b[i] + c[i];
        Write(' ', d[i]);
    end;
end;

procedure DoSmth(b, c: TArray; const n, m: Byte; var d: TArray; var l: Byte);
var
    i, shift: Byte;
begin
    shift := Abs(n - m);
    if (shift = 0)
    then
        l := n
    else
        if (n > m)
        then
        begin
            l := n;
            for i := m downto 0 do
                c[i + shift] := c[i];
            for i := 0 to shift - 1 do
                c[i] := 0;
        end
        else
        begin
            l := m;
            for i := n downto 0 do
                b[i + shift] := b[i];
            for i := 0 to shift - 1 do
                b[i] := 0;
        end;
    for i := 0 to l - 1 do
    begin
        d[i] := b[i] + c[i];
        Write(' ', d[i]);
    end;
end;

var
    s, si, koefs, steps: String;
    mass: Array[Byte] Of ShortInt; //массив коэффициентов
    n, step: Byte; //длина массива (по сути старшая степень x) и "текущая" степень
    koef: ShortInt; //текущий коэф
    err: Integer;
begin
    ReadLn(s);
    s := s + '+'; n := 0;
    while (Length(s) > 0) do
    begin
        si := Copy(s, 1, Pos('+', s) - 1); //вырезаем до плюса
        Delete(s, 1, Pos('+', s)); //удаляем с плюсом
        koefs := Copy(si, 1, Pos('x', si) - 1);
        if (koefs = '')
        then
            koefs := '1';
        val(koefs, koef, err); //тут можно ещё проверку на корректность ввода и бла-бла
        
        steps := Copy(si, Pos('x', si) + 1, Length(si) - Pos('x', si));
        if (steps = '')
        then
            steps := '1'
        else
            Delete(steps, 1, 1);
        val(steps, step, err);
        if (n = 0)
        then
            n := step;
        mass[n - step] := koef;
    end;
end.