помогите плиз одну лабу по инфе сделать

[MAHDAPUH]

программа такая удалить из текста все палиндромы (палиндром-слова которые с права на лево читаются одинакого например шалаш) спасибо огромное зарание

[alex_fcsm]

Используйте поиск по форуму. Как пример

[MAHDAPUH]

понимаешь я понятия не имею как работать в нем так что мне нужна срочная помошь меня из инста уже выгнать хотят у меня есть типа такой лабы но я не знаю как ее исправить

[MAHDAPUH]

program lab_5;
var a,b,c,d:string;
k,i,n,s:integer;
begin
writeln ('vvedite stroku');
readln (a);
n:=0;
c:=a;
d:=' ';
insert(a,d,length(a));
repeat
b:=copy (a,1,pos(' ',a)-1);
delete (a,1,pos(' ',a)+1);
if (length(b) mod 2=1) then delete (b,length(b) div 2 +1,1);
for i:=1 to length(b) do
if b[i]=b[length(b)-i+1] then s:=1 else s:=0;
writeln (b[i],b[length(b)-i+1]);
if (s=1) then delete (c,pos(b,c),length(b)+1);
until (a='');
writeln(c);
readln;
end.

[Arigato]

понимаешь я понятия не имею как работать в нем так что мне нужна срочная помошь меня из инста уже выгнать хотят у меня есть типа такой лабы но я не знаю как ее исправить

То, что Вас хотят выгнать - Ваша проблема. Если Вы учиться не хотите, то правильно, что хотят выгнать.