Отсортировать массив в порядке убывания произведения цифр методом вставок

uses crt;
const nmax=100;
type mas=array [1..nmax] of integer;
function Pr(k:integer):real;
var k1:integer;
    p:real;
begin
k1:=abs(k);
p:=1;
while k1>0 do
 begin
  p:=p*(k1 mod 10);
  k1:=k1 div 10;
 end;
Pr:=p;
end;
 
procedure InsertSort(var x:mas;n:integer);
var i, j, buf:integer;
begin
for i:=2 to N do
 begin
  buf:=x[i];
  j:=i-1;
  while (j>=1) and (Pr(x[j])<Pr(buf)) do
   begin
    x[j+1]:=x[j];
    j:=j-1;
   end;
  x[j+1]:=buf;
 end;
end;
var a:mas;
    n,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(2001)-1000;
  write(a[i],' ');
 end;
writeln;
InsertSort(a,n);
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.