Найти минимум и максимум

type 
TBmpFileHeader=record
  bfType          : word;
  bfSize          : longword;
  bfReserved1     : word;
  bfReserved2     : word;
  bfOffBits       : longword;
end;
 
TBmpInfoHeader=record
  biSize          : longword;
  biWidth         : longint;
  biHeight        : longint;
  biPlanes        : word;
  biBitCount      : word;
  biCompression   : longword;
  biSizeImage     : longword;
  biXPelsPerMeter : longint;
  biYPelsPerMeter : longint;
  biClrUsed       : longword;
  biClrImportant  : longword;  
end;
TPixel=record b, g, r : byte; end;
const 
headerSize = 54;
BLUE_PIXEL = 0;
GREEN_PIXEL = 1;
RED_PIXEL = 2;
 
 
VAR mybestpict : array [,] of TPixel;
dd:byte;
min.r,max.r,min.g,max.g,min.b,max.b:integer;
i,j,tt,tt3,rov,k:integer;
path, folder, name, ext : string; 
  fileABC : file;
 bmpIn, bmpOut : array of Byte;
 fileIn, fileOut : string;
 offset, width, height : longint; 
 TBmpFile : TBmpFileHeader;
 TBmpInfo : TBmpInfoHeader;
  
  
 size : longint;
 begin
 offset := 54;
   writeln('File: ');
  Readln(fileIn);
  assign(fileABC, fileIn);
  reset(fileABC);
  size := FileSize(fileABC);
  read(fileABC,TBmpFile,TBmpInfo);
  
  //writeln(TBmpInfo.biWidth,'-',TBmpInfo.biHeight);
  width:=TBmpInfo.biWidth;
  height:=TBmpInfo.biHeight;
  //mybestpict : array of width of height;
 SetLength(mybestpict,width ,  height);
 
  //mybestpict:= array [1..width,1..height]of TPixel;
  writeln('width=', width, ', height=', height);
  tt:=width*3;
  
  tt3:=tt mod 4;
  rov:=4-tt3;
  
  for  i:=0 to  height-1 do // высота
  
  begin 
  for j:=0 to width-1 do  // длина
  begin 
  read(fileABC,mybestpict[j,i]);
 write(mybestpict[j,i].r , '-', mybestpict[j,i].g , '-', mybestpict[j,i].b,'|');
  end;
  
  for k:=0 to rov-1 do 
  read(fileABC,dd);
  end;
  
    
  close(fileABC);
  writeln('File size: ', size);
  //SetLength(bmpIn, size);
 // SetLength(bmpOut, size);
 
  end.