Для массива Т из k элементов составить процедуру, формирующую массив из индексов элементов массива Т, для которых f(Ti) больше заданной величины. В каждой строке матрицы А распечатать только те элементы, десятичный логарифм которых больше G — Pascal(Паскаль)

uses crt;

type
  mas = array [1 .. 10, 1 .. 10] of real;

var
  m: mas;
  a: array [1 .. 10] of real;
  i, j, n: integer;
  g: real;

function log10(x: real): real;
begin
  log10 := ln(x) / ln(10);
end;

procedure bg(m: mas; n: integer; g: real);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      if log10(m[i, j]) > g then
        write(m[i, j]:6:2);
    writeln;
  end;
  readln;
end;

begin
  clrscr;
  write('Введите n<=10; n=');
  readln(n);
  write('Введите число g (0<=g<=1); g=');
  readln(g);
  randomize;
  for i := 1 to n do
    for j := 1 to n do
    begin
      m[i, j] := random(10) + 1 + random;
    end;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(m[i, j]:6:2);
    writeln;
  end;
  readln;

  bg(m, n, g);

end.