Как переделать эту строку в массив, состоящий из данных слов (без точек с запятой) - Pascal

const m = 20;
var s: string;
    a: array [1..m] of string;
    i, j: integer;
begin
  writeln('Enter string:'); readln(s);
  s := s + ';'; {добавляем в конец последнего слова ";" для упрощения алгоритма}
  i := 0;
  while (pos(';', s) > 0) and (i < m) do
    begin
      inc(i);
      a[i] := copy(s, 1, pos(';', s) - 1);
      delete(s, 1, pos(';', s))
    end;
  if length(s) > 0 then writeln('Not all words were located to the array!');
  writeln('Words in array:');
  for j := 1 to i do writeln(a[j]);
  readln
end.