Удалить из строки все слова «Link» — Pascal(Паскаль)

пример "no link on the linking" = "no on the linking"

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую сочетания link');
readln(s);
{идем с конца строки, что бы не сбить индексацию}
for i:=length(s) downto 1 do
{если буква L,l и перед ней пробел или она первая +
следующие три символа ink и за ними пробел или конец строки}
if(s[i] in ['L','l'])and((s[i-1]=' ')or(i=1))and(copy(s,i+1,3)='ink')
and((s[i+4]=' ')or(i=length(s)-3))then
delete(s,i,5);{удаляем это слово и пробел за ним.}
write(s);
readln
end.