Создать одномерный массив М из 15 целых чисел (числа вводит пользователь).Вывести на экран массив в виде строки чисел.

Program Program1;
var Array_M: array [1..15] of integer;
i: integer;
begin
for i := 1 to 15 do
begin
write(Введите значение , i, элемента массива: );
readln(Array_M[i]);
end;
for i := 1 to 15 do write(Array_M[i], );
end.