Ввести фамилию, имя и отчество, как одно данное типа строчка. Найти

program zz1;

var s, n:string; //задаем переменные строкового типа

k, l, i:integer;

begin

write( Введите фамилию, имя и отчество );

read(s);

l:=length(s);

writeln( длина начальной строки = , l);

for i:=1 to l do

if (s[i]=а) or (s[i]=и)or(s[i]=у)or(s[i]=е)or(s[i]=ы)or(s[i]=о)or(s[i]=э)or(s[i]=я)or(s[i]=ю)or

(s[i]=А)or(s[i]=И)or(s[i]=У)or(s[i]=Е)or(s[i]=О)or(s[i]=Э)or(s[i]=Я)or(s[i]=Ю) then k:=k+1;

writeln( количество гласных = , k);

for i:=l downto 1 do

if s[i] = then begin n:=copy(s,i+1,l-i);writeln( третье слово: , n);break;end;

for i:=1 to l do

if s[i] = then begin writeln( количество букв в фамилии = , i-1);break;end;

end.