Как заполнить весь массив нулями?

for h2:=1 to 100 do begin
for h3:=1 to 100 do begin
      array[h2,h3]:=0;
end;
end;

for h2:=1 to 100 do
for h3:=1 to 100 do
array[h2,h3]:=0;

ZeroMemory(@array[0, 0], SizeOf(array))

p := @a;
repeat
    p^ := PByte(PChar(p) - ord(p <> @a))^ xor PByte(@a)^;
    inc(p);
until PChar(p) = PChar(@a[High(a), High(a[High(a)])]) + sizeof(@a[Low(a), Low(a[Low(a)])]);

var arr :array[0..x, 0..y] of Integer;
FillChar(array[0,0], SizeOf(array), 0);

procedure SetDCPixelFormat (hdc: HDC); 
var
pfd: TPixelFormatDescriptor;
nPixelFormat: Integer; 
begin
FillChar (pfd, SizeOf (pfd), 0);
nPixelFormat: = ChoosePixelFormat (hdc, @pfd);
SetPixelFormat (hdc, nPixelFormat, @pfd); 
end;
 
ОБРАТИТЕ ВНИВАНИЕ НА FillChar (pfd, SizeOf (pfd), 0);
 
[size="1"][color="grey"][I]Добавлено через 1 минуту[/I][/color][/size]
ВОТ КОРОЧЕ КУД ИЗ МОЕГО ПРОЕКТА НЕДОПИСАНОГО 
 
procedure LoadUser;
  const
    data = 'data\Reg\Teacher.bin';
  var
    f : file;
    CoutReset : Integer;
    buf : array [0..4096] of byte;
    var
     lengt : byte;
     i : Integer;
     c : string;
begin
  AssignFile(f, data);
  if not FileExists(data) then
  begin
    MessageDlg('Нет файла СУБД', mtError, [mbOK],0);
  end;
  Reset(f);
  FillChar(buf, SIZEOF(buf), 0);
  while not eof(f) do
  begin
    BlockRead(f, buf, 4096, CoutReset);
    //передаем на обработку массива
    begin
     lengt:=buf[0];
     for i:=1 to lengt do
     begin
       c:=c+chr(buf[i]);
     end;
     ShowMessage(c);
    end;
  end;
  CloseFile(f);
end;