Si Khaled

Program sikhaled;
Uses Wincrt;
Var
  f1,f2: Text;
Procedure creation (Var f1,f2:Text);
Begin
  Assign (f1,'c:\bac\image.txt');
  Assign (f2,'c:\bac\im_compress.txt');
End;
Function boucle (ch:String): Integer;
Var
  i: Integer;
Begin
  i := 0;
  If ch[1]='2' Then
    Repeat
      i := i+1;
      Delete (ch,1,3);
    Until (ch[1]='0') Or (ch='')
  Else
    Repeat
      i := i+1;
      Delete (ch,1,1);
    Until (ch[1]='2') Or (ch='');
  boucle := i;
End;
Function codage (ch:String): String;
Var
  i: Integer;
  ch1,x: String;
Begin
  if ch[1]='2' Then
        ch1:='0 '
        else
        ch1:='';
  Repeat
    i := boucle (ch);
    If (ch[1]='0') Then
      Delete (ch,1,i)
    Else
      Delete (ch,1,3*i);
    Str (i,x);
    ch1 := ch1+x+' ';
  Until (ch='');
  Delete (ch1,Length(ch1),1);
  codage := ch1;
End;

Procedure traitement (Var f1,f2:Text);
Var
  ch: String;
Begin
  Reset (f1);
  Rewrite (f2);
  While Not (Eof (f1)) Do
    Begin
      Readln (f1,ch);
      Writeln (f2,codage(ch));
    End;
  Close (f2);
  Close (f1);
End;

Begin
  creation (f1,f2);
  traitement (f1,f2);
End.