Структурированные типы данных. Текстовый файл

[Порфирий]

Структурированные типы данных. Текстовый файл

Записать в текстовый файл предложение «В ЛЕСУ РОДИЛАСЬ ЕЛОЧКА». Определить число гласных в этом предложении.

 

[Vladimir_S]

Записать в текстовый файл предложение «В ЛЕСУ РОДИЛАСЬ ЕЛОЧКА». Определить число гласных в этом предложении.

Const
 Vowel:Set of Char=['А','Е','И','О','У','Ы','Э','Ю','Я'];

Var
 f:Text;
 S:String;
 i,N:Byte;

Begin
 Assign(f,'Tanja.txt');
 Rewrite(f);
 S:='В ЛЕСУ РОДИЛАСЬ ЕЛОЧКА';
 Writeln(f,S);
 Close(f);
 Reset(f);
 Readln(f,S);
 Close(f);
 N:=0;
 for i:=1 to Length(S) do
  if (S[i] in Vowel) then Inc(N);
 Writeln(S);
 Writeln(N,' гласных');
 Readln
End.

 

[Viewer]

Считать гласные не надо, сколько их и так видно

 

[Порфирий]

Доброе день)
У меня появился вопрос!
Допустим, я хочу в конец существующего файла дописать информацию (любую). Как я действую? (если не затруднит, то объясните поподробнее, буду очень благодарен)