Найти предлоги в тексте и посчитать количество каждого предлога (например, предлогов «В» — 15 шт, предлогов «от» — 10 и тд)- Pascal(Паскаль)

begin
writeln('BBedute 20 3hakoB');
readln(st);
k1:=0;
k2:=0;
for i:=1 to length(st) do
begin
if st[i] = 'v'then
k1:=k1+1;
if (st[i]= 'o')  and  (st[i+1]= 't') then
k2:=k2+1;
end;
writeln ('k1=',k1, ' k2=',k2);
end.