Program Diff; 

{Calcola differenziale fra due file audio di byte}

var
  f,g: file of byte;
  a,b: byte;
  c: integer;
  i: longint;
begin
  assign(f,'c:\temp\iam.pcm'); reset(f);
  assign(g,'c:\temp\iamD.pcm'); rewrite(g);
  a:= 128;
  for i:= 1 to 26089 do begin
   read(f, b);
   c:= 128+(b-a);
   if c<0 then a:= 0
     else if c>255 then a:= 255
         else a:= c;
   write(g, a); a:= b;
  end;
end.