Сортировка массива по убыванию произведения цифр числа с последующим выводом. Опции

[Dexoid]

Помогите пожалуйста решить это несложную задачу: Нужно отсортировать массив по убыванию произведения цифр числа и потом вывести получившийся массив на экран. Пробовал писать сам, но так как цифры в массиве портятся то потом он просто выводит массив из нулей, поэтому прошу помощи. Спасибо заранее.

[Dexoid]

Код

var i,j,s,b:integer;
type
mymas=array [1..15] of integer;
var a:mymas;
function mult (a:mymas):integer;
begin
for i:=1 to 15 do begin
while a[i]>0 do begin
s:=a[i] mod 10;

mult:=a[i]+s;
a[i]:=a[i] div 10;
end;
end;
end;
begin
for i:=1 to 15 do begin
readln(a[i]);
end;
for j:=1 to 14 do
for i:=1 to 15-j do
if mult(a[i]) > mult(y[i+1] then begin
b:=y[i];
y[i]:=y[i+1];
y[i+1]:=b;
end;
for i:=1 to 15 do
write(a[i]);
writeln;
end.

Вот, паскаль ругается Types missmatch. На условие if mult(a[i]) > mult(y[i+1].