нужна прога по строкам!!

[СветОК]

Есть прога вот такого вида
Определить сколько раз в строке встречается буквосочетание: "JP".

uses crt;
var s:string;
 st:string;
 x:byte;
 q,i:integer;
begin
clrscr;
writeln ('Введите строку');
readln(s);
st:='JD';
q:=0;
i := 1;
repeat
 x := pos(st,copy(s,i,length(s)));
 if x<>0 then inc(q);
 i := i + x;
until x=0;
writeln (q);
readln;
end.

вот мое условие :
2. Для встречающихся в заданном тексте пар рядом расположенных символов указать, сколько раз встречается каждое из таких двухбуквенных сочетаний

пожалуйста скажите ведь мое условие очень похоже...как будет выглядеть моя прога??

[Mad_Cat]

пожалуйста скажите ведь мое условие очень похоже

да похоже! копируйте по 2 символа и проверяйте сколько раз они встречаются в исх строке!

uses crt;
var s:string;
st:string;
x:byte;
q,i:integer;
k:integer;
begin
clrscr;
writeln ('Введите строку');
readln(s);
k:=1;
while k<=length(s)-1 do begin
st:=copy(s,k,2);
q:=0;
i := 1;
repeat
x := pos(st,copy(s,i,length(s)));
if x<>0 then inc(q);
i := i + x;
until x=0;
writeln (st,'=',q);
k:=k+1;
end;
readln;
end.

как избавиться от повторов придумайте сами)

[СветОК]

а при проверке что мне нужно ввести ?

[Mad_Cat]

а при проверке что мне нужно ввести ?

прочитайте условие своей задачи и подумайте(только хорошенько подумайте)!

все....я поняла.....спасибо огромное....!!!))) очень помогли!! разобралась

а надо то было всего лишь подумать ( эээээээээх и это будущие начальники

[СветОК]

все....я поняла.....спасибо огромное....!!!))) очень помогли!! разобралась.