program strings;

uses classes;

var list : TStringList;

function strcat(dest,source : pchar) : pchar;
begin
end;

begin
end.