Pascal. Работа с внешними файлами, перестановка стобцов.

[Lavallet]

Здравствуйте, уважаемые программисты.

Имеется задача:

Дана матрица размерности M X N. Упорядочить столбцы матрицы в соответствии с возрастанием элементов и i-ой строке. Вывести исходную и полученную матрицы. Перестановку двух столбцов оформить подпрограммой (процедурой).

В принципе, программа готова, требуется оформить правильную перестановку столбцов через процедуру (которая у меня, по словам моего преподавателя, какая-то не такая, требуется для "общего случая" сделать, как я понял) и выполнить ряд дополнительных условий:

1) Программа должна создавать текстовый файл на жестком диске, в который она должна записать ранг (размер) матрицы и все элементы исходной матрицы.
2) Необходимо сделать развилку (если такое возможно), т.е начальную матрицу можно заполнить двумя способами: с клавиатуры или с помощью случайных чисел в указываемом диапазоне.
3) Программа должна создавать второй внешний файл, в который она должна записать условия задачи, исходную матрицу и все полученные результаты (тобишь те, которые требовались в задании).

Вот текст программы:

Program Sorting;
Uses
  CRT;

Const
  MaxSize=15; // Maximal size of matrix

Var
  M,N: Integer; // Current sizes of matrix
  A: Array[1..MaxSize,1..MaxSize] of Real;
  K: Integer;   // Row, which must be sorted
  I,J: Integer;
  Jmin: Integer;

Procedure SwapColumns(J1,J2: Integer);
var
  I:Integer;
  P:Real;
begin
  for I := 1 to N do
  begin
    P := A[I,J1];
    A[I,J1] := A[I,J2];
    A[I,J2] := P;
  end;
end;

Begin
  ClrScr;

  WriteLn('Input MxN - width and height matrix');
  ReadLn(M,N);
  WriteLn('Input ', M*N, ' elements of matrix');
  for I := 1 to N do
    for J := 1 to M do
      Read(A[I,J]);
  Writeln;
  Writeln('Input number of row, which must be sorted');
  ReadLn(K);
  Writeln;
  Writeln('Old matrix');
  for I := 1 to N do
  begin
    for J := 1 to M do
      Write(A[I,J]:4:2,' ');
    WriteLn;
  end;

  for I := 1 to M do
  begin
    Jmin := I;
    for J := I+1 to M do
      if A[K,J]<A[K,Jmin] then 
        Jmin := J;
    if Jmin <> I then
      SwapColumns(I,Jmin);
  end;

  Writeln('New matrix');
  for I := 1 to N do
  begin
    for J := 1 to M do
      Write(A[I,J]:4:2,' ');
    WriteLn;
  end;
  ReadKey;
End.

Буду рад любой помощи.

[Z1000000]

которая у меня, по словам моего преподавателя, какая-то не такая, требуется для "общего случая" сделать, как я понял

Не могу понять чего ему не понравилось, может нужно дополнительно передавать в качестве аргументов массив и размеры массива. Будет более обще.

[Lavallet]

Z1000000,
Да, точно. Именно про это и было сказано.
А как тогда в таком случае должна выглядеть процедура?

[Z1000000]

Procedure SwapColumns1(var M:array[1..MaxSize,1..MaxSize] of Real;Size,J1,J2: Integer);
var
  I:Integer;
  P:Real;
begin
  for I := 1 to Size do
  begin
    P := M[I,J1];
    M[I,J1] := M[I,J2];
    M[I,J2] := P;
  end;
end;

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

type myArray = array[1..MaxSize,1..MaxSize] of Real;