в чем ошибка? программа работает но не проверяет

[Tolian92]

program vb;
var K:array[1..7,1..6] of integer;
E:array[1..6] of longint;
i,j:integer;
begin
for i:=1 to 6 do e[i]:=1;
for i:=1 to 7 do
begin
for j:=1 to 6 do
begin
K[i,j]:=random(20);
write(k[i,j]:3);
end;
writeln;
end;
writeln;
for j:=1 to 6 do
for i:=1 to 7 do e[j]:=e[j]*k[i,j];
for i:=1 to 6 do write(e[i]:10);
end.

вот задание
Дана матрица К(7х6), получить массив Е(6), такой что Е(1)= произведению элементов первого столбца матрицы К; Е(2)= произведению элементов второго столбца матрицы К и т.д.