{Convert a string to an array of chars}
procedure StoC (str1 : String; str2 array of char);
    var
        j: word;
    begin
        for j := 1 to sizeof(str2) do
            begin
                if str1[j]=''
                then str2[j]:=' '
                else str2[j]:=str1[j];

            end;
    end;