Procedure  StLowCase(Var Fn:StringType);
  Const LegalChars = 'ABCDEFGHIJKLMNOPQRSTUVWYZX';
  Var i,j :Byte;
  Begin
    i:= Length(Fn);
    For j := 1 to i  Do If Pos(Fn[j],LegalChars) <> 0
      Then Fn[j] := Chr(Ord(Fn[j])+32);
  End;

Function Pad(St:StringType;count:Byte):StringType;
   Var FillSt :String[80];
   Begin
     FillSt[0] :=Chr(Count);
     FillChar(FillSt[1],Count,' ');
     Pad := Copy(St+FillSt,1,Count);
   End;

Function PadCh(St:StringType;Ch:Char;count:Byte):StringType;
   Var FillSt :String[80];
   Begin
     FillSt[0] :=Chr(Count);
     FillChar(FillSt[1],Count,Ch);
     Pad := Copy(St+FillSt,1,Count);
   End;