На 6 строке выдает нельзя считывать данные этого типа
Program Pro;
var
i,a,b,c,d:integer;
M:array[,,,,] of integer;
begin;
Readln(SetLength(M,i,a,b,c,d));
for i:=0 to SetLength(M,i,a,b,c,d) do
for a:=0 to SetLength(M,i,a,b,c,d) do
for b:=0 to SetLength(M,i,a,b,c,d) do
for c:=0 to SetLength(M,i,a,b,c,d) do
for d:=0 to SetLength(M,i,a,b,c,d) do
Readln(M[i,a,b,c,d]);
Writeln(M);
end.