Паскаль, задача на строки

[Liam_]

Имеются 2 задачи, нужно решить только одну (любую), не могу разобраться

1) Известно, что в предложении только одно слово содержит символ А, и только одно слово - символ В, причем расположение их относительно друг друга может быть произвольным, Определить количество слов, расположенных между ними.

2) Удалить повторения второго слова предложения, если повторений нет - то удалить само второе слово.

В последней кое-как разделил предложение на слова, дальше не идёт =/

[Alex11223]

Удалить повторения второго слова предложения

А теперь расшифруйте, что это значит) UPD: а, уже понял)
И выложите, что у вас получилось с помощью тега [CODE] (значек #).

[Liam_]

Сообщение от Alex11223

И выложите, что у вас получилось с помощью тега [CODE] (значек #).

Сижу сейчас с чужого бука, так что по памяти =_=

uses crt;
var i,len,n,k,j:integer;
    slova: array [1..20] of string;
    st,second, st1:string;
begin
clrscr;
writeln('vvedite stroku '); readln(st);
len:=length(st);
i:=0;
j:=0;
k:=0;
while  i<len  do begin
i:=i+1;
if st[i]=' ' then begin
j:=j+1;
slova[j]:=st1;
if (slova[j]=second) or (st=second)  then begin slova[j]:=''; k:=k+1; end;
st1:='';
if j = 2 then second:=slova[j];
end else begin st1:= st1+st[i]; if i=len then slova[j+1]:=st1;
end; end;
if k=0 then slova[2]:='';
for j:=1 to len do write(slova[j],' ');
end.