Разработайте класс для работы с матрицами.

[h4dye]

Необходимо разработать класс для работы с матрицами.

Какой конструктор лучше создать для данной задачи? И как?

В procedure TMatrix.LoadFromFile(FName: string); выдает ошибку для readln(F);Если я убираю эту строчку, то ошибка во время выполнения программы на строке: Reset(F); (не понимаю почему)

Основная программа:

{$mode objfpc}{$H+}
program lab1_5;
 
uses uMatrix;
 
var M1: TMatrix;
  FName: string;
begin
   write('Name of source file: ', FName);
   readln(FName);
   writeln(M1.LoadFromFile(FName));
   M1.showscreen;
   writeln(M1.NumMul);
   Writeln(M1.Transp);
   readln;
end.

Модуль:

{$mode objfpc}{$H+}
unit umatrix;
interface
uses Classes;
type
  TMatrix = class(TComponent)
  private
    N: integer; // Размерность матрицы
  public
    Matrix: array of array of real; // Элементы матрицы
    property Razmer: integer read N;
    procedure Init(Num: integer = 3);
    procedure ShowScreen;  //вывод матрицы
    procedure LoadFromFile(FName: string);   //загрузка из файла
    function Transp(): Tmatrix;         //транспонирование матрицы
    function NumMul(Num: real): TMatrix;     //умножение матрицы на число
    function getMatrix(M: TMatrix; Row, Col: integer): TMatrix;
  end;
 
implementation
 
procedure TMatrix.Init(Num: integer = 3);
var
  i: integer;
begin
  N := Num;
  SetLength(Matrix, N);
  for i := 0 to N - 1 do
   SetLength(Matrix[i], N);
end;
 
procedure TMatrix.ShowScreen;
var
  i, j: integer;
begin
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      Writeln(Matrix[i, j]);
end;
 
procedure TMatrix.LoadFromFile(FName: string);
var
  i, j: integer;
  F: File of real;
begin
  AssignFile(F, FName);
  Reset(F);
  for i := 0 to N - 1 do
  begin
    for j := 0 to N - 1 do
    begin
      Read(F, Matrix[i, j]);
    end;
    Readln(F);
  end;
  CloseFile(F);
end;
 
function TMatrix.NumMul(Num: real): TMatrix;
var
  i, j: integer;
  M: TMatrix;
begin
  M := TMatrix(Self);
  M.Init(Razmer);
  for i := 0 to N - 1 do
  begin
    for j := 0 to N - 1 do
    begin
      M.Matrix[i, j] := Num * Matrix[i, j];
    end;
  end;
  Result := M;
end;
 
function TMatrix.Transp: TMatrix;
var
  M: TMatrix;
  i, j: integer;
begin
  M := TMatrix.Create(Self);
  M.Init(Razmer);
  for i := 0 to Razmer - 1 do
  begin
    for j := 0 to Razmer - 1 do
    begin
      M.Matrix[i, j] := Matrix[j, i];
    end;
  end;
  Result := M;
end;
 
function TMatrix.getMatrix(M: TMatrix; Row, Col: integer): TMatrix;
var
  Res: TMatrix;
  i, j: integer;
  ii, jj: integer;
begin
  Res := TMatrix.Create(nil);
  Res.Init(M.Razmer - 1);
  ii := 0;
  jj := 0;
  for i := 0 to Res.Razmer - 1 do
  begin
    if i >= Row then
      ii := i + 1
    else
      ii := i;
    for j := 0 to Res.Razmer - 1 do
    begin
      if j >= Col then
        jj := j + 1
      else
        jj := j;
      Res.Matrix[i, j] := M.Matrix[ii, jj];
    end;
  end;
  Result := Res;
end;
end.

[evg_m]

var M1: TMatrix;
  FName: string;
begin
   write('Name of source file: ', FName);
   readln(FName);
   writeln(M1.LoadFromFile(FName));

Прежде чем пользоваться объектом М1 (использовать его методы и т.д. LoadFromFile)
данный объект ДОЛЖЕН быть инициализирован(создан)

М1:=TMatrix.Create;
M1.LoadFromFile(....);