когда чтото не получается - пробуй подставить действия попроще:
в твоём случае это выглядеть будет так:
Код:
If not(s[j]=' ')OR not(s[j]='|') then Iskom_Str:=Iskom_Str+s[j]
Else
begin
.....
end;
тут получается взаимоисключение, как видишь... например есть символ '|', но он не равен ' ', значит true, действие выполнится, опять же если символ ' ', то он не равен '|', и опять действие выполняется )
если я правильно понял, тебе нудно сделать так: если символ не ' ' и не '|', то действия выполняется, тогда нужно просто OR (оператор ИЛИ) заменить на AND (оператор И)