Как при использовании приведённых алгоритмов поиска определить что элемент не найден​

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

Закончились лекции, и студенты пошли домой (конъюнкция). в природе бывает, что солнце при дожде светит или прячется в тучах (дизъюнкция). в этом году летом мы либо поедем к морю, либо будем жить на даче (строгая дизъюнкция). если будет хорошая погода, то мы пойдем гулять (импликация). неверно, что 2 * 2 = 5 (инверсия). завтра мы не пойдем гулять (инверсия). я куплю ноутбук тогда и только тогда, когда получу премию (эквиваленция).

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.