program iomrewrsex;

{$mode objfpc}{$H+}

uses
  typ, iom, inv;

var
  A : array[1..10,1..10] of arbfloat;
  i : longint;
  j : longint;
  s : ArbString;
  n, m: longint;
begin
  iomrems('{1 2}{3 4}{5 6}', A[1,1], m, n, 10);

  for i:= 1 to m do
    for j:= 1 to n do
      writeln('A[',i,',',j,'] = ',A[i,j]);

  { Print matrix A }
  iomwrms(s, A[1,1], m, n, 2, 10);
  writeln('A = ', s);
end.