program xmessage;

procedure x_message(s:pchar); external name 'x_message';

var
  s : pchar; 
{$X+}
begin
  writeln("Starting program");
  getmem(s,260);
  s := 'Hello world';
  x_message(s);
  writeln("returned from C, s = ",s);
  getmem(s,260);
  writeln("Done");
end. {main}