Ребят помогите решить две задачки

[asisa]

Ребят помогите решить две задачки

Здравствуйте, сегодня сыну задание в школе дали, написать на паскале программу, хотя до этого особо не объясняли. Сама в этом деле совсем не сильна, может кто сможет помочь...Буду очень благодарна...

Дан текстовый файл, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз в каждой строке встречаются гласные буквы?

 

[Vladimir_S]

Здравствуйте, сегодня сыну задание в школе дали, написать на паскале программу, хотя до этого особо не объясняли. Сама в этом деле совсем не сильна, может кто сможет помочь...Буду очень благодарна...

Дан текстовый файл, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз в каждой строке встречаются гласные буквы?

Легко.
Имя файла, его содержимое а также путь к нему, разумеется, можете поставить свои.

Uses CRT;
CONST
 Gl=['А','Е','И','О','У','Ы','Э','Ю','Я','а','е','и','о','у','ы','э','ю','я'];
VAR
 F:Text;
 S:String;
 N_gl,i,j:BYTE;
BEGIN
 ClrScr;
 Assign(F,'D:\push_dos.txt');
 ReSet(F);
 Repeat
  Readln(F,S);
  N_gl:=0;
  For i:=1 to Length(S) do
   if (S[i] in Gl) then Inc(N_gl);
  Write(S);
  For j:=Length(S)+1 to 40 do
   Write(' ');
  Writeln(N_gl:2);
 Until EoF(F);
 Close(F);
 Readln
END.

P.S. Считал, считал, пересчитывал - но нет, упорно одна задачка получается, а не две, как обозначено в заголовке темы. Где я ошибся?..:tehnari_ru_325: