Uses Graph;
type
slog = record
        b1,b2,b3:byte;
        end;

Var

Driver,Mode: integer;
f:file;
bafer1,bafer2,bafer3:byte;
duzina,visina,i,j:integer;
boja:word;
proba:array[0..1000,0..1000] of slog;

Begin

Driver:=Detect;
InitGraph(Driver,Mode,'');
setBkColor(white);
clearDevice;

Assign(f,'lena.bmp');
Reset(f,1);
seek(f,18);
BlockRead(f,duzina,4);
BlockRead(f,visina,4);
seek(f,54);
for i:=1 to visina do
for j:= 1 to duzina do
begin

if not(eof(f)) then
begin

  BlockRead(f,bafer1,1);
  BlockRead(f,bafer2,1);
  BlockRead(f,bafer3,1);
 setrgbpalette(5, bafer3,bafer2,bafer1);
  setColor(5);
  proba[j,duzina-i].b1:=bafer3;
  proba[j,duzina-i].b2:=bafer2;
  proba[j,duzina-i].b3:=bafer1;
  PutPixel(j,duzina-i,5);
  end;
end;
writeln(i,' ',j);


for i:=1 to visina do
for j:=1 to duzina do
begin
 setrgbpalette(5, proba[j,duzina-i].b1,proba[j,duzina-i].b2,proba[j,duzina-i].b3);
putPixel(300+j,300+duzina-i,5);
end;


readln;
end.