В двумерном массиве вычислить произведение элементов в К-столбце

var
    ar: Array[Byte, Byte] Of Real;
    i, j: Byte;
    k, n, m: Integer;
    mult: Extended; //Double | Real
begin
    repeat
        Write('Input row count(1..256): ');
        ReadLn(n);
    until ((n > 0) And (n < 257));
    repeat
        Write('Input column count(1..256): ');
        ReadLn(m);
    until ((m > 0) And (m < 257));
    repeat
        Write('Input K(1..', m,'): ');
        ReadLn(k);
    until ((k > 0) And (k <= m));
    mult := 1;
    Randomize;
    WriteLn('Original matrix:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random * 198 - 99;
            Write(ar[i, j]:7:2);
            if (j = k - 1)
            then
                mult := mult * ar[i, j];
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('ANSWER=', mult:0:2);
end.