Ai làm cho mình code : Nhập vào mảng không biết trước số lần ; Xuống dòng nhập biến m ạ

var x,s: string;
    d,m,i: integer;
    a: array[1..1000] of integer;
function int(n: string): integer;
var i: integer;
begin
    val(n,i);
    exit(i);
end;
begin
    readln(s);
    readln(m);
    x:=''; d:=1; s:=s+' ';
    for i:=1 to length(s) do begin
        if (s[i]<>' ') then x:=x+s[i]
        else begin
            a[d]:=int(x);
            d:=d+1;
            x:='';
        end;
    end;
end.

program InputArray;
var
  arr: array of Integer; // Dynamic array
  i, n, m: Integer;
begin
  n := 0; // Initialize the initial number of elements
  repeat
    Write('Enter the value of element ', n+1, ' (enter -1 to finish): ');
    Readln(m);
    if m <> -1 then
    begin
      // Increase the size of the array and assign the new value
      SetLength(arr, n+1);
      arr[n] := m;
      n := n + 1; // Increase the number of elements by 1
    end;
  until m = -1;

  // Print the array
  Writeln('The entered array:');
  for i := 0 to n-1 do
    Writeln('Element ', i+1, ': ', arr[i]);

  Readln;
end.