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.