Basta che utilizzi la funzione write() anzichè writeln(), poichè writeln() serve appunto per stampare una stringa e mandare a capo il cursore. Il tuo codice diventa quindi:

codice:
var i, j :integer; 
matr:array[1..2,1..4] of integer; 

begin 
   for i:=1 to 2 do   
      begin
         for j:=1 to 4 do 
            write(matr[i,j]);
         writeln();
      end