program test;
{$APPTYPE CONSOLE}
uses SysUtils;


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

var
    c   :array[1..10] of char;
begin
    c[1] := '4';
    c[2] := '5';
    test_test(c);
    Readln;
end.