Работа со строками

[Katrina*]

Петя любит читать строку через символы, т.е. 'abcde', он читает а, после пропускает b и читает с, дальше пропускает d и читает е. Пете интересно сколько раз он прочитал подстроку ab.

[Xardas]

var
  s, s1, t : string; // строка, подстрока, строка без четных символов
  i : integer;
begin
.....
t := '';
for i := 1 to length(s) do
 if odd(i) then t := t + s[i]; //формируем строку из нечетных символов

i := 0;
while pos(s1,t) > 0 do // смотрим вхождения подстроки в строку
 begin
  inc(i); // считаем количество
  delete(t, pos(s1,t), length(s1)); // удаляем подстроку из строки, чтобы найти еще возможные вхождения
 end;
..........
end.

[Katrina*]

простите за наглость, а можете написать полностью всю программу?

[Xardas]

Вам здесь всего лишь нужно организовать ввод и вывод данных. Все остальное уже есть!
Сложно что ли с помощью двух операторов readln и writeln это осуществить?

begin
readln(s);
readln(s1);
.......
writeln(i);
end.