Соединить программу подсчета количества слов в тексте и программу создания 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.