Паскаль. Дан многочлен с одной переменной. Привести в нем подобные члены

[Maserati]

Дан многочлен с одной переменной. Привести в нем подобные члены.
Будем хранить многочлен в виде массива: каждый элемент массива соответствует одночлену, заданному тройкой (коэффициент, буква, степень).

program zadanie;
type monomial = record
        degree, k : integer;
end;
type polynom = array[0..100] of monomial;
var pol, new : polynom;
    pol_n, new_n, i, maxdegree : integer;
begin
write ('Введите количество одночленов многочлена: ');
read (pol_n);
maxdegree := 0;
        for i:=1 to pol_n do
        begin
                write ('Введите одночлен и его степень ', i, ': ');
                read (pol[i].k, pol[i].degree);
                if pol[i].degree > maxdegree then
                        maxdegree := pol[i].degree;
        end;
        new_n := maxdegree;
        for i:=0 to maxdegree do
                new[i].degree := i;
        for i:=1 to pol_n do
                inc(new [pol[i].degree].k, pol[i].k);
        write ('Новый многочлен: ');
        write ('(', new[new_n].k, ')*x^', new[new_n].degree);
        for i:=new_n-1 downto 1 do
                if new[i].k > 0 then
                        write ('+(', new[i].k, ')*x^', new[i].degree);
        writeln;
end.

Помогите исправить,что бы можно было вводить букву для каждого одночлена.
Чтобы был примерно такой вид 54a-7b+5c+13d

[GetMax]

Так добавьте к вашему пользовательскому типу поле для хранения переменной

type monomial = record
        degree, k : integer;
        letter : char
        end;

И вводите его в программе

for i:=1 to pol_n do
        begin
                write ('Введите одночлен и его степень ', i, ': ');
                read (pol[i].k, pol[i].degree, pol[i].letter);
                if pol[i].degree > maxdegree then
                        maxdegree := pol[i].degree;
        end;