Написать программу в pascal. из предложения вывести слова с заданным количеством слогов.

Количество слогов считаем по количеству гласных букв в слове. program pr; uses crt; var str,s: string;   a,i,j,len,k,kslog: byte;           begin  writeln('введите предложение');   readln(str);       writeln('введите кол-во слогов');   readln(k);       writeln('слова с ',k,' слогами: ');   writeln;       len: =length(str);   a: =0;   kslog: =0;   for i: =1 to len do                    begin                                  if (str[i] = '  ')     then                                    begin                                      s: =copy(str,i+1,a);                                                                     for j: =1 to length(s) do                                        begin                                          if s[j] in ['а','о','у','э','ы','я','ё','ю','е','и','а','о','у','э','ы','я','ё','ю','е','и'] then                                                       inc(kslog);                                         end;                                                   if (k=kslog) then writeln(s);                                     kslog: =0;                                     a: =0;                                   end                              else   a: =a+1;                     end;               writeln;       writeln('для завершения программы нажмите enter');       readln;         end.        

ответ:

на фотогоафии.