Написать программу с параметрами

const
  m = 6;
 
var
  a: array[1..m, 1..m] of real;
  sr: array[1..m] of real;
  i, j: integer;
 
begin
  randomize;
  writeln('Matrix:');
  for i := 1 to m do
    begin
      for j := 1 to m do
        begin
          a[i, j] := 10 - 20 * random;
          write(a[i, j]:7:3);
          sr[j] := sr[j] + a[i, j]
        end;
      writeln
    end;
  writeln('Average of columns:');
  for j := 1 to m do
    begin
      sr[j] := sr[j] / m;
      write(sr[j]:7:3)
    end;
  readln
end.

procedure Vvod1(var mt:Tmatr; n:integer);{создание матриц random}
var i,j:byte;
begin
for i:=1 to n do
 for j:=1 to n do
  mt[i,j]:=random(9)+1;
end;
 
procedure Vvod2(var mt:Tmatr;c:char);{создание матриц с клавы}
var i,j:byte;
code:integer;
s:string;
begin
writeln('Введите элементы матрицы ',c,' целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
 repeat 
 repeat
  write('el[',i,',',j,']=');
  readln(s);
  val(s,num,code);
                    if code<>0 then writeln('Неверный ввод. Повторите.');
                    until code=0;
                    mt[i,j]:=strtoint(s);
                    if (mt[i,j]>10000)or(mt[i,j]<-10000) then writeln('Ошибка. Повторите ввод: ');
                  until (mt[i,j]<=10000) and (mt[i,j]>=-10000);
 end;
end;

const
  m = 6;
  d = 10;
 
type
  arr = array[1..m] of real;
  mat = array[1..m] of arr;
 
procedure gen_mat(var x: mat);
var i, j: integer;
begin
  randomize;
  for i := 1 to m do
    for j := 1 to m do
      x[i, j] := d - 2 * d * random
end;
 
procedure inp_mat(s: string; var x: mat);
var i, j, err: integer;
    n: string;
begin
  writeln('Введите элементы матрицы ', s, ', вещественные числа в диапазоне [', -d, ', ', d, '].');
  for i := 1 to m do
    for j := 1 to m do
      repeat
        write(s, '[', i, ', ', j, '] = ');
        readln(n);
        val(n, x[i, j], err);
        if err > 0
          then writeln('Введено не число, повторите.')
          else if abs(x[i, j]) > 10
            then writeln('Число вне диапазона, повторите.')
      until (err = 0) and (abs(x[i, j]) <= 10)
end;
 
procedure prn_mat(s: string; const x: mat);
var i, j: integer;
begin
  writeln(s);
  for i := 1 to m do
    begin
      for j := 1 to m do write(x[i, j]:8:3);
      writeln
    end
end;
 
procedure average(const x: mat; var y: arr);
var i, j: integer;
begin
  for j := 1 to m do
    begin
      y[j] := 0;
      for i := 1 to m do y[j] := y[j] + x[i, j];
      y[j] := y[j] / m
    end;
end;
 
procedure prn_arr(s: string; const y: arr);
var i: integer;
begin
  writeln(s);
  for i := 1 to m do write(y[i]:8:3);
  writeln
end;
 
var
  a: mat;
  sr: arr;
  s: string;
 
begin
  write('Сгенерировать матрицу (G) или ввести вручную (M)? ');
  readln(s);
  if (length(s) > 0) and (s[1] in ['M', 'm'])
    then inp_mat('A', a)
    else gen_mat(a);
  prn_mat('Матрица A:', a);
  average(a, sr);
  prn_arr('Массив средних арифметических столбцов матрицы SR:', sr);
  readln
end.