program slika;
var
   f,g: file;
  bafer:byte;
  brojac,i:integer;
  
begin
assign(f,'lena.bmp');
reset(f,1);
assign(g,'lenaZelenaKomponenta.bmp');
rewrite(g,1);

// Prva 54 bajta se kopiraju
for i:= 0 to 53 do
begin
BlockRead(f,bafer,1);
BlockWrite(g,bafer,1);
end;


//R-red G-green B-blue ali se cuvaju u BGR
brojac:=0;
while not(eof(f)) do
      begin
      //Samo jedna komponenta - Zelena
       BlockRead(f,bafer,1);
       if (brojac mod 3 = 1) then  // Zelena komponanta se ostavlja 
       begin
           bafer:=round(1*bafer);
           BlockWrite(g,bafer,1);
           brojac:=1;
       end
           else // Ostale komponente se postavljaju na 0
           begin
             bafer:=0;
             BlockWrite(g,bafer,1);
           end;
         inc(brojac);
      end;
close(f);
close(g);
writeln('kraj');
readln;
end.