Преобразовать слово по символам в одномерный массив- Pascal(Паскаль)

Uses
  CRT;

Var
  a: array [1 .. 100] of string[20];
  s: string;
  i: integer;

begin
  s := 'infobase';
  for i := 1 to length(s) do
    a[i] := s[i];
  for i := 1 to length(s) do
    write(a[i]:3);

end.

Uses
  CRT;

Var
  a: array [1 .. 100] of char;
  s: string;
  i: integer;

begin
  s := 'database';
  for i := 1 to length(s) do
    a[i] := s[i];
  for i := 1 to length(s) do
    write(a[i]:3);

end.