Сделать хоть какой типизированный файл ввести туда любую строчку и подсчитать количество

На паскале?

даааа

Var
t:text;
s:string:
i,b:integer;
 begin
readln(s); ввод строчки
i:=0;
b:=pos(' ',s);
while blt;gt;0 do
 begin
inc(i);
delete(s,b,1);
b:=pos(' ',s);
end;
assign (t, 'C:\primer.txt'); соединение с файлом primer.txt
rewrite(t); подготовка к записи в файл
write(t,i); запись в файл значение переменной "i"
close(t); окончание работы с файлом
end.

Творить файл не непременно, программка сама его создаст. 

Оцените мой ответ если это то, что Для вас необходимо.