строки и последовательности

[Игрушка96]

Задача 1. Дано что х1=у1=1,xI=xI-1+yI-1/I,yI=yI-1+xI-1/I.Указать последовательность чисел х1,х2...х20 и у1,у2...у20,образованных выше указанными формулами.
Есть немного наработок,думаю должно быть что то вроде этого

var
k,i:integer;
x,y:array[1..20] of integer;
begin
writeln('Chislo:');
x[1]:=1;
y[1]:=1;
for i:=2 to 20 do
begin
x[i]:=x[i-1]+y[i-1]/2;
y[i]:=y[i-1]+x[i-1]/2;
writeln('Posledovatelnost X:' xxx);
writeln('Posledovatelnost Y:' yyy);
end;

Задача 2.Задана строка S.Необходимо найти кол-во слов в ней и вывести эти слова через запятую(пробел) на экран...Тут вообще темный лес,помогите плиз..Заранее спасибо

[Игрушка96]

ауууу,кто нить отзовитесь!!!

[s-andriano]

По второй.
Полагаю, слово - последовательность символов, отделенная от других пробелами. Если это не так - дайте определение слова.
Я бы сначала удалил все двойные пробелы, а также пробелы в начали и конце строки, а потом заменил все пробелы на запятые.