Alternative zu StrpCopy gesucht

[turboPASCAL]

Moin, ich suche eine Alternative zu StrPCopy. (will keine SysUtils in der uses)

Delphi-Quellcode:

var
  s: String;
  p: PChar;
begin
  s :=  'Hallo';

  p := PChar(s);
  p := @S[1];
end.
// -------------------- >
var
  s: String;
  p: array [0..25] of Char;
begin
  s :=  'Hallo';
  
  StrPCopy(p, s);

  p := PChar(s); // <-- Inkompatible Typen: 'Array' und 'PChar'
  p := @S[1]; // <--- Inkompatible Typen: 'Array' und 'Pointer'
end.

Ich würde ja die Chars "manuell" in einer For-Schleife umschaufeln, aber gibt es 'ne elegantere Lösung ?