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

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