program patternmatch (input, output);

const
    MAXSTRLEN = 10;
    MATCHANYTHING = '*';
    BLANKS = '  ';

type
    StringType = record
	length: integer;
	contents: array [1..MAXSTRLEN] of char;
    end;

var
    myPattern, myObject: StringType;

{
    Read a line of characters from the user, keeping track
    of how many there are.
}
procedure GetString (var myString: StringType);
var
    ch: char;
begin
    myString.length := 0;
    myString.contents := BLANKS;
    while not eoln do begin
	read (ch);
	if myString.length < MAXSTRLEN then begin
	    myString.length := myString.length + 1;
	    myString.contents [myString.length] := ch;
	end;
    end;
    readln;
end;

{
    You write this.
}
function Match (myPattern, myString: StringType): boolean;
begin
end;

begin {main program}
    write ('Pattern: ');
    GetString (myPattern);
    while myPattern.length > 0 do begin
	write ('Object: ');
	GetString (myObject);
	while myObject.length > 0 do begin
	    writeln (Match (myPattern, myObject));
	    write ('Object: ');
	    GetString (myObject);
	end;
	write ('Pattern: ');
	GetString (myPattern);
    end;
end.