RLE - Dopisywanie do ciągu wyjściowego

Witam
Prosiłbym o wytłumaczenie tych procedur :

o:=o+inttostr(-noseries+1)+copy(i, j-noseries, noseries-1);  
               noseries:=1; 

 if series <> 1 then o:=o+inttostr(series)+a;    
     if noseries > 1 then begin                      
       
        if length(o) = 0 then o:=o+inttostr(-noseries)+copy(i, j-noseries-1, noseries)
        else o:=o+inttostr(-noseries)+copy(i, j-noseries+1, noseries);
     end;
     if a <> o[length(o)] then o:=o+inttostr(-1)+a;

http://pl.wikibooks.org/wiki/Object_Pascal/Procedury_i_funkcje

@Fusion789 - nie wiem dokładnie co zasugerował @vpiotr podając link, w każdym razie po pierwsze zaglądnij pod ten link, bo najwidoczniej nie wiesz czym są procedury i funkcje; Podałeś jedynie wycinki kodu, w których użyte są jakieś zmienne jakiegoś typu, więc niewiele można doradzić;

Jeżeli nie wiesz do czego służą użyte funkcje, to poniżej podaję linki do kompendium wiedzy, abyś mógł się z tymi terminami zapoznać:

• Length - pobiera i zwraca długość łańcucha znaków, macierzy itd.,
• Copy - kopiuje i zwraca podciąg znaków z wejściowego łańcucha,
• IntToStr - konwertuje liczbę całkowitą na łańcuch znaków i zwraca go;
  A wątek przenoszę do działu Newbie, dlatego że dotyczy podstaw programowania i znajomości zawartości biblioteki standardowej.