PROCEDURE eingabe(VAR a:matrix);
VAR i,j:integer;
BEGIN
  writeln('Anzahl Zeilen der Matrix =');read(a.m);
  writeln('Anzahl Kolonnen der Matrix ='); read(a.n);
  writeln('Matrix zeilenweise eingeben');
  FOR i:= 1 TO a.m DO FOR j:= 1 TO a.n DO
  read(a.a[i,j])
END;