Создать текстовый файл с матрицей, считать её, найти нечётные числа в матрице, посчитать их произведение

var
  a: array [1..100, 1..100] of integer;
  i, j, k, m, n: integer;
  f: text;
  p: real;
  sum: real;
 
begin
  randomize;
  assign(f, 'matrix.txt');
  rewrite(f);
  write('Введите размерность матрицы (n,m): ');
  readln(n, m);
  writeln(f, n);
  writeln(f, m);
  writeln('Матрица A: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -n * m div 2 + random(n * m);
      write(a[i, j]:5);
      write(f, a[i, j]:5);
    end;
    writeln;
    writeln(f);
  end;
  close(f);
  p := 1;
  sum := 0;
  k := 0;
  reset(f);
  readln(f, n);
  readln(f, m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      read(f, a[i, j]);
      if odd(a[i, j]) then
      begin
        p := p * a[i, j];
        inc(k);
      end
      else
      if not odd(a[i, j]) then
        sum := sum + a[i, j];
    end;
  end;
  close(f);
  writeln('Сумма: ', sum);
  if k <> 0 then
    writeln('Произведение: ', p)
  else
    writeln('Нет таких чисел!');
end.