Дана строка. определииь сколько раз в нее входит подстрока «ель». ввести с клавиатуры строку символов

Var s,t:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)>0 do
 begin
 delete(t,pos('ЕЛЬ',t),3);
 k:=k+1;
 end;
writeln('k = ',k);
end.

Пример:
Введите строку:
сосна ель ёлка ЕЛЬ берёза
k = 2