Пример алгоритма в котором нарушено свойство конечности

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

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.