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