Untitled

procedure test_test(a :array of char);
var
    i   :Integer;
begin
    for i:= low(a) to high(a) do
        write(a[i]);
    Writeln;
end;

begin
    test_test(['4', 's', '5']);
    Readln;
end.