Поиск нужной матрицы

const fName = 'matrix.txt';
 
type mType = array [1..4,1..4] of Real;
 
function GetMatrix(n : Integer) : mType;
var
  m : mType;
  f : Text;
  s : String;
  row, col : Integer;
begin
  row := 0; col := 0;
  Assign(f, fName); Reset(f);
  while Not EOF(f) and (n > 0) do
    begin
      if row = 0 then
        begin ReadLn(f, s); inc(row); end
      else
        begin
          inc(col); Read(f, m[row, col]);
          if col = 4 then
            begin
              ReadLn(f); col := 0; inc(row);
              if row > 4 then
                begin row := 0; dec(n); end;
            end;
        end;
    end;
  Close(f);
  GetMatrix := m;
end;
 
var
  m : mType;
  row, col : Integer;
begin
 
  m := GetMatrix(3); WriteLn('C =');
  for row := 1 to 4 do
    begin
      for col := 1 to 4 do Write(m[row, col]:10:4);
      WriteLn;
    end;
    
  m := GetMatrix(5); WriteLn('E =');
  for row := 1 to 4 do
    begin
      for col := 1 to 4 do Write(m[row, col]:10:4);
      WriteLn;
    end;
 
  m := GetMatrix(1); WriteLn('A =');
  for row := 1 to 4 do
    begin
      for col := 1 to 4 do Write(m[row, col]:10:4);
      WriteLn;
    end;
  
end.

ReadLn(f, s);
Read(f, m[row, col]);

  Write('Имя матрицы: '); ReadLn(name); t:=name+' = ';
  Reset(f); s:='';
  while not EoF(f) and (Copy(s+' ',1,Length(t))<>t) do ReadLn(f,s);
  if not EoF(f) then for i:=1 to 4 do for j:=1 to 4 do Read(f,a[i,j])
  else WriteLn('Матрица ',name,' не обнаружена');