Небольшая задача

[WeRsUs]

Народ помогите . У меня такая задача , есть срока в memo , состоящая из разного количества букв "u"(up) (+1), "d"(down) (-1) . есть какая то строка . Например (размер строки может быть разным):
uduuddu
и должно выписываться значение
1012101
то есть 0+(up)1=1 - запомнили это значение
1-(down)1=0 -запомнили это значение и т.д.
Вот мой код :
s-строка

for i:=length(s)-1 downto 1 do begin
    if s[i]='d' then begin
      dec(x);
    end;
  end;
  for i:=length(s)-1 downto 1 do begin
      if s[i]='u' then begin
       inc(x);
      end;
   end;
   memo1.Lines.Add(inttostr(x));

И вот я не могу понять как запоминать эти значения . Нужно заполнять
все эти значения в массив , но я не понимаю как это сделать ?

народ кому не лень скажите как это сделать ?

[maxionans]

var
  I, Digit : Integer;
  Inp, Outp : String;
begin
  Inp := 'uduuddu';
  Digit := 0;
  Outp := '';

  for I := 1 to Length( Inp ) do
  begin
    case Inp[ I ] of
      'u' : Inc( Digit );
      'd' : Dec( Digit );
    end;
  
    Outp := Outp + IntToStr( Digit );
  end;

  Memo1.Lines.Add( Outp );
end;