Program Strings;

Procedure StrOut1(    X:String); External;
Procedure StrOut2(Var X:String); External;
{$L StrTools}

Procedure Mensa;

Var S : String;

Begin
  S := 'Die Mensa wuenscht ...';
  StrOut1(S);
  WriteLn;
  S := '... einen guten Appetit.';
  StrOut1(S)
End;

Procedure Grieche;

Var S : String;

Begin
  S := 'Der Grieche wuenscht ...';
  StrOut2(S);
  WriteLn;
  S := '... sich einen hoeheren Umsatz.';
  StrOut2(S)
End;


Begin
  Mensa;
  Writeln;
  Grieche
End.