Дано натуральное число N. Составить программу для формирования массива, элементами которого являются цифры числа N — Pascal(Паскаль)

program g;

type
  cisla = 0 .. 9;

var
  m: array [1 .. 1000] of cisla;
  i, Nm: integer;
  n: word;
  s: string;
  x, code: integer;

begin
  write('Vvedite cislo: ');
  readln(n);
  str(n, s);

  for i := 1 to length(s) do
  begin
    val(s[i], x, Nm);
    m[i] := x;
  end;

  Nm := length(s);
  for i := 1 to Nm do
    writeln('M[', i, ']= ', m[i]);

  readln;

end.