program ConvTxt;
{ converte byte audio grezzi in coppie di un file testuale}

var
  f: file of byte;
  t: text;
  a,b: byte;
  i: longint;
begin
  assign(f,'c:\temp\iam.pcm'); reset(f);
  assign(t,'c:\temp\copp2.txt'); rewrite(t);
  for i:= 1 to 3000 do begin
   read(f,a,b);
   writeln(t,a,', ',b);
  end;
end.