program ConvertToStringArray;
uses
SysUtils;
type
TStringArray = array of string;
function ConvertToStringArray(Numbers: array of Integer): TStringArray;
var
i: Integer;
begin
SetLength(ConvertToStringArray, Length(Numbers)); // Set the length of the resulting string array
for i := 0 to High(Numbers) do
ConvertToStringArray[i] := IntToStr(Numbers[i]); // Convert each integer to string
end;
var
Numbers: array[1..5] of Integer = (1, 2, 3, 4, 5);
StringArray: TStringArray;
i: Integer;
begin
// Convert the array of integers to a string array
StringArray := ConvertToStringArray(Numbers);
Writeln('String array:');
for i := 0 to High(StringArray) do
Writeln(StringArray[i]);
end.
(*
run:
String array:
1
2
3
4
5
*)