Есть строка, определить есть ли в строке слова которые совпадают с последним — Pascal(Паскаль)

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const t=['.', ',', ':', ';', ' ', '!', '?'];

var s,k:string;
    i:integer;
begin
Writeln('Введите слово.');
Readln(s);
 
For i:=Length(s) downto 1 do
If s[i] in t then
begin
k:=Copy(s, i+1, Length(s)-i);
Delete(s, i, Length(s)-i+1);
Break;
end;
 
If Pos(k, s)>0 then
Writeln('Есть')
else
Writeln('Нету');
 
Readln;
 
end.