--- 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,"{");