program schlitten_farben_aendern;
uses crt, graph;

var f, f2 : file of byte;
    d : longint;
    ch, chv : byte;

begin
  assign(f, 'd:\tp\arbeit\schlitte.bmp');
  reset(f);
  assign(f2, 'd:\tp\arbeit\schlitt2.bmp');
  rewrite(f2);
  d:=filesize(f);
  repeat
    chv:=ch;
    read(f, ch);
    case ch of
        1 : if chv<>183 then ch:=27;
        4 : ch:=39;
        5 : ch:=138;
        6 : ch:=162;
        7 : ch:=31;
        8 : ch:=20;
        9 : ch:=90
      end;
    write(f2, ch);
    write(d);
    if d=filesize(f)-10 then readln;
    dec(d);
  until d=0;
  close(f); close(f2);
end.