Функция StrPCopy
модуль Strings
Назначение:
Копирует строку Паскаля в строку с завершающим нулем.
Целевая платформа: Реальный режим, защищенный режим, Windows.
Описание: function StrPCopy(Dest: PChar; Source: String): PChar
Примечания:

Функция StrPCopy копирует строку Паскаля Source в Dest и возвращает результат в Dest. Вы должны обеспечить, чтобы в буфере, заданном параметром Dest, было достаточно места для StrLen(Source) + 1 символа.

См. также: StrCopy.
Пример:

uses Strings, Crt;
{ в Windows используйте WinCrt }
var
   A: array[0..79] of Char;
   S: String[79];
begin
   Readln(S);
   StrPCopy(A, S);
  Writeln(A);
end.