Найти в каждом столбце матрицы максимальный положительный элемент

var
  A : array [1..10, 1..10] of Real;
  X : Real;
  Row, Col, maxRow : Integer;
begin
  WriteLn('Исходный массив');
  X := 4.5;
  for Row := 1 to 10 do
    begin
      for Col := 1 to 10 do
        begin
          A[Row, Col] := cos(sqrt(sqrt(X))-0.5*sqrt(X)+0.25*sqrt(sqrt((X*X*X))));
          X := X + 0.35;
          Write(A[Row, Col]:7:3);
        end;
     WriteLn;
   end;
  for Col := 1 to 10 do
    begin
      maxRow := 1;
      for Row := 2 to 10 do
        if A[Row, Col] > A[maxRow, Col] then
          maxRow := Row;
      if maxRow <> Col then
        begin
          WriteLn('В колонке ', Col:2, ' максимальный A[', maxRow, ',', Col, '] = ', A[maxRow, Col]:0:3);
          X := A[Col, Col];
          A[Col, Col] := A[maxRow, Col];
          A[maxRow, Col] := X;
        end;
    end;
  WriteLn('Полученный массив:');
  for Row := 1 to 10 do
    begin
      for Col := 1 to 10 do
        Write(A[Row, Col]:7:3);
      WriteLn;
    end;
end.

const n=10;
var
  A : array [1..n, 1..n] of Real;
  X : Real;
  Row, Col, maxRow : Integer;
  F:text;
begin
  Assign(F,'result.txt');
  Rewrite(F);
  WriteLn('Исходный массив');
  WriteLn(F,'Исходный массив');
  X := 4.5;
  for Row := 1 to n do
    begin
      for Col := 1 to n do
        begin
          A[Row, Col] := cos(sqrt(sqrt(X))-0.5*sqrt(X)+0.25*sqrt(sqrt((X*X*X))));
          X := X + 0.35;
          Write(F,A[Row, Col]:7:3);
          Write(A[Row, Col]:7:3);
        end;
     WriteLn(F);
     WriteLn('');
   end;
  for Col := 1 to n do
    begin
      maxRow := 1;
      for Row := 2 to n do
        if A[Row, Col] > A[maxRow, Col] then
          maxRow := Row;
      if maxRow <> Col then
        begin
          WriteLn(F,'В колонке ', Col:2, ' максимальный A[', maxRow, ',', Col, '] = ', A[maxRow, Col]:0:3);
          WriteLn('В колонке ', Col:2, ' максимальный A[', maxRow, ',', Col, '] = ', A[maxRow, Col]:0:3);
          X := A[Col, Col];
          A[Col, Col] := A[maxRow, Col];
          A[maxRow, Col] := X;
        end;
    end;
  WriteLn('Полученный массив:');
  WriteLn(F,'Полученный массив:');
  for Row := 1 to n do
    begin
      for Col := 1 to n do
       begin
        Write(F,A[Row, Col]:7:3);
        Write(A[Row, Col]:7:3);
       end;
      WriteLn(F,'');
      WriteLn('');
    end;
  Close(F);
end.