program m2_enter;
uses crt;
var i,j,m,n:integer;
	a:array [1..100,1..100] of real;
begin
	clrscr;
    write('Введите размер матрицы (m,n): ');
    readln(m,n);
	writeln('Введите массив:');
{************** Ввод матрицы ************************************************}
    for i:=1 to m do
    for j:=1 to n do read(a[i,j]);
{****************************************************************************}
{************** Вывод матрицы ***********************************************}
    for i:=1 to m do
    	begin
        	for j:=1 to n do write(a[i,j]:0:2,' ');
            writeln
        end;
{****************************************************************************}
end.

    Source: geocities.com/tphelp/pas

               ( geocities.com/tphelp)