[KOOL]

на примере обнуления массива чисел:

Код:

procedure A(var Arr : array of integer);
var i:byte;
begin
  for i:=Low(Arr) to High(Arr) do /* Low и High - 1й и последний номер массива*/
    Arr[i]:=0;
end;