Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.Их количество вывести в выходной файл.Плиз ОЧЕНЬ СРОЧНО!!!!!!!

vart:text;s:string:i,b:integer; beginreadln(s); {ввод строки}i:=0;b:=pos(' ',s);while b<>0 do begininc(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.Создавать файл не обязательно, программа сама его создаст. Оцените мой ответ если это то, что Вам нужно.