помогитеее пожалуйста!!!!

Вот так ?
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.