Технический форум - Ребят помогите решить две задачки

Цитата:

Сообщение от asisa (Сообщение 623439)

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

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

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

Код:

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: