Ребят помогите срочно с задачей!

namespace N87147472;

interface

type
  ConsoleApp = class
  public
    class method Main(args: array of string);
  end;

  TMatrix = array[1.., 1..] of Int32;

implementation

class method ConsoleApp.Main(args: array of string);
begin
  var rand: System.Random := new System.Random;
  var N: Byte := rand.Next(2, 11);
  var M: Byte := rand.Next(3, 20);
  var A: TMatrix := new TMatrix(N, M);
  Console.WriteLine("Дана матрица A[{0},{1}]:", N, M);
  for i: Byte := 1 to N do
  begin
    for j: Byte := 1 to M do
    begin
      A[i, j] := rand.Next(1, 101);
      Console.Write("{0, 4}", A[i, j]);
    end;
    Console.WriteLine;
  end;
  var GMean: Extended := 1;
  for i: Byte := 1 to N do
    for j: Byte := 1 to M do
      GMean := GMean * A[i, j];
  GMean := Math.Pow(GMean, 1 as Extended / N / M );
  Console.WriteLine("Среднее геометрическое элементов = {0, 0:F4}", GMean);
  var K: Byte;
  Console.Write("Введите число K: ");
  while not(byte.TryParse(Console.ReadLine, out K) and (0 < K <= 100)) do
    Console.Write("Ошибка! Введите целое число от 1 до 100: ");
  var Count: Byte := 0;
  for i: Byte := 1 to N do
    for j: Byte := 1 to M do
      if (A[i, j] mod K = 0) and (A[i, j] < GMean) then
        inc(Count);
  Console.WriteLine("Элементов, кратных {0} и меньших среднего геометрического: {1}", K, Count);
  Console.WriteLine;
  Console.Write("Для завершения работы нажмите любую клавишу... ");
  Console.ReadKey;
end;

end.

Пиши на почту помогу