Procedure Fillchar (Var X;Count : Longint;Value : char or byte); ;
Fillchar fills the memory starting at X with Count bytes or characters with value equal to Value.
No checking on the size of X is done.
Program Example25;
{ Program to demonstrate the FillChar function. }
Var S : String[10];
I : Byte;
begin
For i:=10 downto 0 do
begin
{ Fill S with i spaces }
FillChar (S,SizeOf(S),' ');
{ Set Length }
S[0]:=chr(i);
Writeln (s,'*');
end;
end.