program IntArrayToStrArray;
{$mode objfpc} // Ensures Object Pascal mode for Free Pascal
uses
SysUtils; // Needed for IntToStr
// Procedure to convert an integer array to a string array
procedure ConvertIntArrayToStrArray(const IntArr: array of Integer; var StrArr: array of String);
var
i: Integer;
begin
// Ensure both arrays have the same length
if Length(IntArr) <> Length(StrArr) then
raise Exception.Create('Arrays must have the same length.');
for i := 0 to High(IntArr) do
StrArr[i] := IntToStr(IntArr[i]); // Convert integer to string
end;
var
Numbers: array[0..4] of Integer = (10, -5, 0, 12345, 42);
Strings: array[0..4] of String;
i: Integer;
begin
try
// Convert integer array to string array
ConvertIntArrayToStrArray(Numbers, Strings);
// Display results
for i := 0 to High(Strings) do
WriteLn('Strings[', i, '] = ', Strings[i]);
except
on E: Exception do
WriteLn('Error: ', E.Message);
end;
end.
{
run:
Strings[0] = 10
Strings[1] = -5
Strings[2] = 0
Strings[3] = 12345
Strings[4] = 42
}
