[Admiral]

Хм... Программа заполняет массив 4го порядка 2х4х3х2, это видно по эти строчкам кода

Код:

const X=2;
      Y=4;
      Z=3;
      Q=2;
...
     For i:=1 to X do
     For k:=1 to Y do
     For j:=1 to Z do
     For l:=1 to Q do

Так что для требуемого вывода массива 2го порядка 5x8 программу не то что стоит переделать но и упростить.

Код:

Program Z4;
uses Crt;
const X=5;
          Y=8;
var M1:array[1..X,1..Y] of integer;
i,j:integer;
begin
     ClrScr;
     Randomize;
     For i:=1 to X do
     Begin
         For j:=1 to Y do
         begin
          M1[i,j]:=Random(5)+1;
          Writeln(M1[i,j]);Write(M1[i,j],' ');
         end;
      Writeln;
     end;
 Readln;
end.

P.S.
Если упрощение не нужно, то к исходной проге требуется добавить выделенные строки и исправить перечёркнутую строчку кода.