const Max = 100;
var S: String;
i : Integer;
ArrS : Array[0..Max] of String;
begin
for i:= 1 to Length( S ) do
begin
ArrS := Copy( S, i , 1 )
end;

end;