в чем ошибка?

[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)= произведению элементов второго столбца матрицы К и т.д.

[Mandrivnyk]

Вроде, все правильно считает.
Немного поменял индексы.

program vb;
var
  K: array[1..7, 1..6] of integer;
  E: array[1..6] of longint;
  i, j: integer;
begin
  for j := 1 to 6 do
    e[j] := 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 i := 1 to 7 do
    for j := 1 to 6 do
      e[j] := e[j] * k[i,j];
  for j := 1 to 6 do
    write(e[j]:10);
end.