2 задачи в паскале работа с текстовыми файлами

[Эйфория]

здравствуйте! помогите пожалуйста решить 2 задачи в паскале. я сегодня уже 7 решила, а эти не могу. совсем не знаю как решать.

1.Файл содержит буквы латинского алфавита. Подсчитать количество букв 'р' в файле.

2.Дан текстовый файл f. Определить количество слов в файле. Сформировать файл g, записав в каждой его в строке по одному слову из файла f.

Заранее спасибо.

[Stilet]

Подсчитать количество букв 'р' в файле.

НАвскидку так:

var f:file of char;c:char;i:integer;
begin
 assign(f,'file');reset(f);
 while not eof(f) do begin
  read(f,c);
  if c='p' then inc(i);
 end;
writeln('В файле ',i,' букв р');
end.

[Эйфория]

спасибо Вам огромное. сейчас попробую

[Эйфория]

выдает ошибку file not found на месте assign(f,'file') что это значит?

[SERG1980]

это значит не найден файл по пути указанному в строке assign(f,'file')
укажите путь к файлу например assign(f,'C:\myfile.txt')

[Эйфория]

спасибо, указала. теперь не выдает ошибок, но ничего не делает.

[Stilet]

Хы, так пропиши readln; перед последним end.
Или после запуска нажми ALT+F5 для просмотра выходных данных.

[Эйфория]

точно. вот я бестолочь. как сама не догадалась .спасибо. одной задачей меньше. что б я без Вас делала. последняя осталась. спасибо всем, кто помог.

[AlexanderKs]

Дан текстовый файл f. Определить количество слов в файле. Сформировать файл g, записав в каждой его в строке по одному слову из файла f

Работка топорная, но работает.

program FileSl;
var
 f,g:Text;
 i, KolSlov:integer;
 s,ak:string;
begin
 KolSlov:=0;
 Assign(f,'fileF.txt');
 Reset(f);
 Assign(g,'fileG.txt');
 Rewrite(g);
 while not (Eof(f)) do begin
    Readln(f,s);
    for i:=1 to Length(s) do begin
      if (s[i]<>' ') then
        ak:=ak+s[i];
      if (s[i]=' ') and (s[i-1]<>' ') and (i>1) then begin
        KolSlov:=KolSlov+1;
        Writeln(g,ak);
        Writeln(ak);
        ak:='';
      end;
    end;
    KolSlov:=KolSlov+1;
    Writeln(g,ak);
    Writeln(ak);
    ak:='';
 end;
 Flush(g);
 Close(g);
 Writeln('Slov v file:',KolSlov);
 Writeln('Zaversheno');
 ReadLn;
 end.

Файл FileF.txt должен находится в папке с программой.

[Эйфория]

спасибо огромное. мне хоть топорная и та за счастье. я ж не на программиста учусь. так что мне лишь бы работала.