Odcinanie porcji

Hello! Mam programik do odszyfrowana txt.

Do programiku dostarczasm ciąg: $112$112$354$40$66$12 . Musze sprawić, aby od znaku drugiego czyli 1, program zaczął zliczacz literki, do następnego znaku $. Teraz program wykonuje jakieś czynności. Potem omija znak $, czysci buffor i czyta z nowu... iu historia sie powtarza. Muszę więc pociąc ciąg znaków na mniejsze grupki z wykonaniem czynności. łańcuch ma być podzielony na: 122 122 354 40 66 12. Po każdyn członie wykonywane czynności, wiadomo. Licze, że mnie zrozumiecie i fakt że jest 6:30 i nie spałem w ogóle. Licze na pomoc i dziękuję!

Wlasnie wrocilem z balangi wiec za ewentualne bledy przepraszam.

const
 Znak = '$'

procedure Dzialaj(Co: String);
var
 i: Word;
 Pomoc: String;
begin
 Pomoc:='';
 for i:=1 to length(Co) do
  if Co[i] = Znak then
  begin
    if i>1 then{jesli pierwszy byl Znak to niewykonuj}
    begin
     {Wykonaj supertajne zadanie z parametrem Pomoc}
     Pomoc:='';
    end;
  end else Pomoc:=Pomoc+Co[i];
  if Pomoc<>'' then{jesli ostatni nie byl Znak}
   {to tez wykonaj zadanie}
end;

No mysle ze umysl mam jednak "trzezwy" :) i to bedzie dzialac.