PROCEDURE matdruck(VAR a:matrix);
VAR i,j:integer;
BEGIN
   FOR i:=1 TO a.m DO
   BEGIN
     FOR j := 1 TO a.n DO write(a.a[i,j]:11:5);
     writeln
   END;
END;