Procedure Fillword (Var X;Count : Longint;Value : Word); ;
Fillword fills the memory starting at X with Count words with value equal to Value.
No checking on the size of X is done.
Program Example76;
{ Program to demonstrate the FillWord function. }
Var W : Array[1..100] of Word;
begin
{ Quick initialization of array W }
FillWord(W,100,0);
end.