fpc/packages/numlib/examples/iomrewrsex.pas

program iomrewrsex;

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.