fpc/packages/numlib/examples/iomremex.pas

program iomremex;

uses
  typ, iom;

const
  m = 3;
  n = 2;
  
var
  a: array[1..m, 1..n] of ArbFloat;
  
begin
  Assign(input, ParamStr(1));
  reset(input);
  Assign(output, ParamStr(2));
  rewrite(output);
  {inlezen van de matrix}
  iomrem(input, a[1, 1], m, n, n);
  writeln('program results iomremex');
  writeln;
  writeln('A=');
  writeln;
  {afdrukken van de matrix}
  iomwrm(output, a[1, 1], m, n, n, 12);
  Close(input);
  Close(output);
end.