fpcdocs/refex/ex76.pp


1
2
3
4
5
6
7
8
9
10

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.