Записать в элемент массива [4,6] значение произведения индексов

type mas = array[1..10, 1..10] of integer;
Это для всех элементов
for x:=1 to 10 do begin
for y:=1 to 10 do begin
mas[x,y] = x * y;
end;
end;
Это только для 4,6
mas[4,6] = 4*6

const
  k = 4;
  p = 6;

var
  f: array [1..k, 1..p] of byte;

begin
  
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
    begin
      f[i, j] := random(10, 100);
      write(f[i, j]:3);
    end;
    writeln();
  end;

  writeln();
  f[k, p] := k * p;

  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
      write(f[i, j]:3);
    writeln();
  end;
end.