Найти в массиве палиндром и удалить его - Pascal

Формулировка задачи:

Дан массив слов. Удалить из текста те слова, которые являются палиндромами.(вывести получившийся текст) В программе задаю массив слов через процедуру, затем ищу палиндромы. Не могу правильно написать процедуру. не пойму что не так. Подскажите, пожалуйста, ошибку и как написать процедуру удаления.

program tekst;
uses crt;
type mas=array [1..100] of string; 
 
procedure vvod(var a:mas); 
var s,sl:string;
i,j,k,m,l:integer;
begin
write('Stroka: ');readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i] else
if length(sl)>0 then
begin
inc(j);
a[j]:=sl;
sl:='';
end;
end;

procedure poisk(var s:mas);
var str:string[100];
j,k,i,n:integer;
begin
for j:=1 to 100 do
begin
n:=length(s[j]);
begin
for i:=1 to n div 2 do
begin
if s[i]<>s[n-i+1] then
writeln (s[j]) 
end;end;
end;end;
 
var t:mas;
begin
vvod(t);
writeln(t);
poisk (t)
end.

Решение задачи: «Найти в массиве палиндром и удалить его»

Листинг программы

  j:=0;
  for i:=1 to n do
    if not IsPalindrome(t[i]) then begin
      Inc(j); if i<>j then t[j]:=t[i];
    end;
  n:=j;

Объяснение кода листинга программы

Переменная j инициализируется значением 0.
Происходит цикл от 1 до n.
Для каждого элемента массива t с индексом i проверяется, является ли он палиндромом.
Если элемент не является палиндромом, то выполняется следующее:
- значение переменной j увеличивается на 1;
- если i не равно j, то элемент с индексом j заменяется на элемент с индексом i.
После завершения цикла значение переменной n присваивается значение переменной j.