program CharArrayToString;
var
charArray: array[1..5] of Char;
resultString: string;
i: Integer;
begin
// Initialize the character array
charArray[1] := 'H';
charArray[2] := 'e';
charArray[3] := 'l';
charArray[4] := 'l';
charArray[5] := 'o';
// Convert the character array to a string
resultString := '';
for i := 1 to Length(charArray) do
begin
resultString := resultString + charArray[i];
end;
WriteLn('Resulting string: ', resultString);
end.
(*
run:
Resulting string: Hello
*)