соединить программу подсчета количества слов в тексте и программу создания csv файла(т.е. нужно подсчитать количество элементов в тексте и вывести отчет в csv-файл)

//предполагается что слова разделены пробелами//предполагается что слово - это любой набор символов без пробелаvar    f: text;    s: string;    i, k: integer;begin    readln(s);    k := 1;    for i := 1 to Length(s) do        if s[i] = ' ' then k := k + 1;    assign(f, 'file.csv');    rewrite(f);    writeln(f, k, ',');    close(f);        writeln(k);end.