Даны 2 строки s1 и s2.Пусть w - первое из слов строки s1, котрое есть и в строке s2. Найти слово, предшествующее первому вхождению w в s1.

Program lab_6;
Uses crt;
var
s1,s2,slovo,pred_slovo:string;
p,k,p2,l1,l2:integer;
naideno:boolean;
 
Function Find_text(str,word:string;pos:integer):integer;
var find:integer;
    k:byte;
Begin
k:=1;find:=0;dec(pos);
repeat
inc(pos);
if  str[pos]=word[k] then inc(k) else begin k:=1; end;
if k=ord(word[0])+1 then Find:=(pos-(ord(word[0]))+1) else Find_text:=0;
until (pos=ord(str[0])) or (Find<>0);
Find_text:=find;
End;
 
Function Find_word(str,word:string):boolean;
var n,find:integer;
    k:byte;
Begin
k:=1;find:=0;n:=0;
repeat
inc(n);
if  str[n]=word[k] then inc(k) else begin k:=1; end;
if k=ord(word[0])+1 then Find:=(n-(ord(word[0]))+1) else Find_word:=false;
until (n=ord(str[0])) or (Find<>0);
if ((str[find-1]=' ')or(Find-1=0)) and ((str[find+(ord(word[0]))]=' ')or((find+ord(word[0])-1)=ord(str[0])))
then
Find_word:=true else Find_word:=false;
End;
 
Function Get_word(Const str:string;Position:integer):string;
var
tmp:string;
Begin
tmp:='';
while(Position<=ord(str[0])) and (str[Position]<>' ') do
begin
tmp:=tmp+str[Position];
inc(Position);
end;
Get_word:=tmp;
End;
 
BEGIN
 
Writeln('Vvedite 1 stroky');
readln(s1);
Writeln('Vvedite 2 stroky');
readln(s2);
naideno:=false;
p:=0;
repeat
p:=p+1;
pred_slovo:=get_word(s1,p);
p2:=p+1;
p:=find_text(s1,' ',p2);
p2:=p+1;
slovo:=get_word(s1,p2);
naideno:=Find_word(s2,slovo);
l1:=ord(slovo[0]);
l2:=ord(s1[0]);
until  (l1+p=l2) or (naideno) or (l1>=l2);
 
if naideno then Writeln(pred_slovo)  else
writeln ('Net slova!');
readkey;
END.