RosettaCodeData/Task/Copy-a-string/Component-Pascal/copy-a-string-1.pas

VAR
	str1: ARRAY 128 OF CHAR;
	str2: ARRAY 32 OF CHAR;
	str3: ARRAY 25 OF CHAR;