Если в первом столбце прямоугольной матрицы все элементы по модулю больше заданной величины, разделить столбец с максима

var a:array[1..10,1..15] of real;
    n,m,i,j,jmx:integer;
    x,s,mx:real;
begin
repeat
write('Введите количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Введите количество столбцов от 2 до 15 m=');
readln(m);
until m in [2..15];
writeln('Массив А');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-9+18*random;
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
writeln('Введите число для сравнения s=');
readln(s);
i:=1;
while(i<=n)and(abs(a[i,1])>s) do inc(i);
if i<=n then
 begin
  writeln('В первом столбце не все элементы по модулю больше ',s:0:2);
  exit;
 end;
writeln('В первом столбце все элементы по модулю больше ',s:0:2);
for j:=1 to m do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+a[i,j]/n;
  if j=1 then
   begin
    mx:=s;
    jmx:=1;
   end
  else if s>mx then
   begin
    mx:=s;
    jmx:=j;
   end;
 end;
writeln('Максимальное среднее арифметическое в столбце ',jmx,'=',mx:0:1);
writeln('Деление элементов столбца ',jmx,' на элементы 1 столбца');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    if j=jmx then a[i,j]:=a[i,j]/a[i,1];
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
end.