Умножение многочленов

uses crt;
const nmax=20;
type mas=array[0..2*nmax] of integer;
procedure vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Степень многочлена ',c,' от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите коэффициенты многочлена:');
for i:=0 to n do//заполним коэфф. с начала с x^n до св.члена
 begin
  write('k[',i,']=');
  read(a[i]);
 end;
end;
procedure vyvod(a:mas;n:integer);
var i:integer;
begin
for i:=0 to n do
write(a[i]:4);
writeln
end;
procedure umn(a,b:mas;n,m:integer;var c:mas);
var i,j:integer;
begin
for i:=0 to n do
for j:=0 to m do
c[i+j]:=c[i+j]+a[i]*b[j];
end;
procedure Sheiker(var a:mas; n,w:integer);
var d,i,j,k,x:integer;
begin
d:=1;//направление движения
i:=-1; //индекс элемента
for k:=n downto 0 do
 begin
  i:=i+d;
  for j:=0 to k-1 do
   begin
    if (w=2)and((a[i]-a[i+d])*d<0)or(w=1)and((a[i]-a[i+d])*d>0) then
    {меняем местами соседние элементы}
     begin
      x:=a[i];
      a[i]:=a[i+d];
      a[i+d]:=x;
     end;
    i:=i+d;
   end;
  d:=-d; {меняем направление движения на противоположное}
 end;
end;
 
var a,b,c:mas;
    m,n,w:integer;
begin
vvod(a,n,'A');
vvod(b,m,'B');
clrscr;
writeln('Многочлен A:');
vyvod(a,n);
writeln('Многочлен B:');
vyvod(b,m);
umn(a,b,n,m,c);
writeln('Многочлен A*B:');
vyvod(c,n+m);
writeln('Как сортировать? 1-По возрастанию 2-По убыванию');
repeat
read(w);
until w in [1,2];
Sheiker(c,n+m,w);
writeln('Отсортированный массив коэффициентов произведения:');
vyvod(c,n+m)
end.