fpc/packages/numlib/examples/iomwrmex.pas

program iomwrmex;

uses
  typ, iom;

const
  m = 5;
  n = 13;
  
var
  i, j: integer;
  a:    array[1..m, 1..n] of ArbFloat;
  
begin
  Assign(output, ParamStr(1));
  rewrite(output);
  { genereren van de matrix A }
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := -(i + j / 10);
  writeln('program results iomwrm');
  writeln;
  { afdrukken van de deelmatrix }
  iomwrm(output, a[2, 3], 3, 6, n, 14);
  writeln;
  iomwrm(output, a[2, 3], 3, 6, n, 10);
  Close(output);
end.