program self1;
var a:array[1..10000] of char; i,j,k:word;
procedure Put(b:byte); begin a[j]:=chr(b); inc(j) end;
procedure WriteC; begin write(a[i]); inc(i) end;
begin
 j:=0;
* i:=0; 
 while a[i]<>'*' do WriteC;
 k:=0; inc(i);
 while k<j do 
  begin writeln(' Put(',ord(a[k]),');'); inc(k) end;
 while i<j do WriteC;
 { Do something else here }
end.
