Выделить слова из текста и каждое слово записать в соответствующий элемент массива - Pascal

Формулировка задачи:

Задача

"Дана строка. Считаем ее отрывком текста. Группы символов, разделенных одним или несколькими пробелами, назовем словом. Пробелы могут находиться как в начале текста, так и в конце. Требуется выделить слова из текста и каждое слово записать в соответствующий элемент массива."

выдает ошибку " ошибка 256 выход за границы диапазона изменения индекса"

var a:array [1..100] of string;
s:string;
 i,x,n,j:integer;
begin
read(s);
x:=1;
for i:=0 to 255 do
if (s[i]=' ') and (s[i+1]<>' ') then begin   j:=i;
repeat
j:=j+1;
n:=n+1
until s[j]=' ';
a[x]:= copy (s,i+1,n);
x:=x+1;
end;
for i:=1 to x do
write (a[i],'/');
End.

Решение задачи: «Выделить слова из текста и каждое слово записать в соответствующий элемент массива»

Листинг программы

s:=' '+s+' '

Объяснение кода листинга программы

Создается переменная s, которая содержит строку с пробелами в начале и конце каждого слова.
Строка s присваивается переменной s.
Строка s увеличивается на пробел в начале и в конце каждого слова.
Процесс повторяется до тех пор, пока длина строки s не станет равной нулю.
Каждое слово в строке s выделяется и сохраняется в массив.
Каждое слово в массиве записывается в соответствующий элемент массива.