--- a/FMatEA.mod
+++ b/FMatEA.mod
@@ -1521,15 +1521,18 @@
VAR i,j : CARDINAL;
BEGIN
+ IF (N < 2) THEN
+ FatalError("N < 2 in FMatEA.WrMatConst");
+ END;
WrStr(Aus,"TYPE Mat");
WrCard(Aus,M,1); WrCard(Aus,N,1);
WrStr(Aus," = ARRAY [1.."); WrCard(Aus,M,1);
WrStr(Aus,"] OF ARRAY [1.."); WrCard(Aus,N,1);
WrStr(Aus,"] OF REAL;"); WrLnN(Aus,2);
- WrStr(Aus,"CONST "); WrStr(Aus,"MatMN = Mat");
- WrCard(Aus,M,1); WrCard(Aus,N,1);
- WrChar(Aus,"{"); WrLn(Aus);
+ WrStr(Aus,"CONST "); WrStr(Aus,"MatMN = Mat");
+ WrCard(Aus,M,1); WrCard(Aus,N,1);
+ WrChar(Aus,"{"); WrLn(Aus);
FOR i:=0 TO M-1 DO
WrCharN(Aus," ",21); WrChar(Aus,"{");