begin
comment matrix reading from a file;
	
	real array aa(1::100, 1::100);
	integer n, i, j;
	
	procedure outmatrix(integer value channel; real array a(*,*); integer value dim);
	begin
		integer i, j;
		write(dim); 
		for i := 1 step 1 until dim do
		begin
			write(" ");
			for j := 1 step 1 until dim do writeon( a(i,j));
		end	
	end ;

	procedure inmatrix(integer value channel; real array a(*,*); integer result dim);
	begin
		integer i, j;
		read( dim);
		for i := 1 step 1 until dim do
		begin
			for j := 1 step 1 until dim do readon( a(i,j));
		end
	end ;
	
	inmatrix(7, aa, n);
	outmatrix(1, aa, n)
		
end