На 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.

знаю

слушай ты задаешь ппограмму с помощью команды integer, а она в свое время работает толлько для натуральных чисел поэтому и выдает ошибку. для того чтобы исправить замени ее на real должно получиться