объясните что означает каждая строка? Pascal

program bmp;
uses GraphABC;
type fileheader = record
      bfType: word;
      bfSize: longword;
      bfRez1: word; //например вот так это для такое то делает...
      bfRez2: word;
      bfOffbits: longword;
      end;
     MapInfo = record 
      size: longword; 
      width: longword;
      height: longword;
      planes: word;
      bitCount: word;
      Compression: longword;
      SizeImage: longword;
      xPPM: longint;
      yPPM: longint;
      clrUsed: longword;
      clrImpotent: longword;
      end;
     RGBq = record
      rgbBlue: byte;
      rgbGreen: byte;
      rgbRed: byte;
      rgbRes:byte;
     end;
var f: file;
    fh : fileheader;
    mi: MapInfo;
    Pal: array [0..255] of RGBq; 
    y,x: integer;
    b_obr : array [,] of byte;
procedure fheader(arr:fileheader);
begin
  writeln('FileHeader');
  with arr do
    begin
      writeln('ВМ ',bfType);
      writeln('Размер файла ',bfSize);
      writeln('Зарез. данные ',bfRez1);
      writeln('Зарез. данные ',bfRez2);
      writeln('Смещение битов. образа от заголовка ',bfOffbits);
    end;
end;
procedure minfo(arr:MapInfo);
begin
  writeln('MapInfo');  
  with arr do
    begin
      writeln('Размер ',size);
      writeln('Ширина ',width);
      writeln('Высота ',height);
      writeln('Число битовых плоскостей ',planes);
      writeln('Число битов на пиксель ',bitCount);
      writeln('Тип сжатия ',compression);
      writeln('Размер изображения в байтах ',sizeimage);
      writeln('Горизонтальное разрешение устройств ',xppm);
      writeln('Вертик. разрешение устройств ',yppm);
      writeln('количество использ. цветов ',clrused);
      writeln('количество важных цветов ',clrimpotent);
    end;
end;   
procedure bit_obr(width:integer);
var y,x: integer;
begin
  b_obr:=new byte[mi.height+1,width+1];
      for y:=1 to mi.height do
        for x:=1 to width do
            read(f, b_obr[y,x]);
 
end;    
begin
 
    assignFile(f,'FMF.BMP');
    reset(f);
    read(f, fh);
    read(f, mi);
    read(f, pal);
    
  if (mi.width mod 4 = 0) then bit_obr(mi.width)
  else bit_obr(mi.width+(4-(mi.width mod 4)));  
  closeFile(f);
  
  fheader(fh);
  writeln;  
  minfo(mi);
   readln;
    for y:=1 to mi.height-1 do
      for x:=1 to mi.width-1 do
        setpixel(x,mi.height-y,rgb(pal[b_obr[y,x]].rgbRed,pal[b_obr[y,x]].rgbGreen,pal[b_obr[y,x]].rgbBlue));
     
end.