Вот так ?
program p1;
uses crt;
const N=3; M =4;
var a:array[1..N,1..M]of integer;
i,j,s:integer;
begin
for i:=1 to N do
for j:=1 to M do begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
writeln;
For i:=1 to N do begin
For j:=1 to M do
write(a[i,j]:5);
writeln;
end;
end.