{  Exercise 7c	Pascal main program for PackLine }

program  TestPackLine (input, output);
type StringType = packed array [1 .. 35] of char;
var TheString:  StringType;
    CharCount:  integer;

procedure PackLine (%StDescr String: StringType;
          var Count: integer);  external;
begin
	Writeln ('Enter a string');
	Readln (TheString);
	PackLine (TheString, CharCount);
	Writeln ('Packed string:');
	Writeln (TheString);
     Writeln ('Number nonblank characters:', CharCount:5);
end.