файлы

[hartman]

Дан символьный файл f, содержащий слова, отделяемые друг от друга запятой. Определить количество слов в файле f и каждое второе слово переписать в файл g.
Program LABA11;
var
f,g:file of char;
ch:char;
k,i:integer;
begin
k:=1;
assign(f,'F:/file1.txt');
assign(g,'F:/file2.txt');
rewrite(f);
repeat
read(ch);
write(f,ch);
until ch='.' ;
reset(f);
repeat
read(f,ch);
for i:=1 to length(ch) do
begin
if ch=',' then
k:=k+1;
end;
until ch='.';
writeln('kol-vo slov=',k);
close(f);
rewrite(g);reset(f);
while not eof(f) do
begin
read(f,ch);
if k mod 2=0 then
write(g,ch);
end;
close(f);
readln;
end.
Как переписать четные слова в фаил g?

[Hacker19_90]

счётчик поставить
переменную
и так
читаем до запятой переменной +1 равна она уже 2 и поэтому дальше всё до запятой надо писать в файл потом снова +1 равна она уже 3 поэтому писать на надо

[hartman]

так он у меня пишет почему-то нечетные

[Hacker19_90]

for i:=1 to length(ch) do
 begin
 if ch=',' then
 k:=k+1;
 end;

А это для чего?
просто интересно чему равна длина символьной переменной