Строки, слова в предложениях Опции

[Tribunal]

нужно найти самое короткое слово в первом предложении, которого нет во втором предложении.
а также в обоих предложениях удалить символ # и удвоить символ +.

подскажите хотя бы,с чего начать.

[Tribunal]

объясните,пожалуйста,в чем проблема

Код

const
   lim=[#0..#32,'.',',',':',';','!','?','"','+'];
type
   Twords=array[1..40] of string;
   zel=set of byte;
var
   z:zel;
   i,n1,n2,min,d,k:byte;
   w1,w2:Twords;
   function GWords(p:string;var w:Twords):byte;
   var
      i,b,n:byte;
   begin
      i:=1;
      n:=0;
      while (i<=length(p)) do begin
        while (i<=length(p)) and (p[i] in lim) do
         inc(i);{+1}
        if i<=length(p) then begin
           b:=i;
           while (i<=length(p)) and not(p[i] in lim) do
            inc(i);
           inc(n);
           w[n]:=copy(p,b,i-b);
        end;
      end;
      GWords:=n;
   end;
begin
   n1:=GWords(p1,w1);
   n2:=GWords(p2,w2);
   repeat
   min:=length(w1[1]);
   for i:=1 to n1 do
   if length(w1[i])<min then begin
                        min:=length(w1[i]);
                        k:=i;
                        end;
   for i:=1 to n2 do
   d:=pos(w1[k],w2[i])
   until not(d in z);
   Label4.Caption:=w1[k];


end;

в некоторых случаях она даже работает=)