Алгоритм определения стоящих рядом одинаковых чисел, что не так.

[leshij]

Всем привет!
Задача такая: вводится последовательность чисел, ''0'' конец последовательности.
Надо определить содержит ли данная строка два равных рядом стоящих одинаковых числа.
Вот код, но он правильно срабатывает только если ввести вначале строки одинаковые числы, а если ввести все разные всеровно выкинит что yes

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function stroka(a:string):boolean;
var i:integer;
begin
  writeln(a);
  readln(a);

  for i := 1 to 100 do begin
    if a[i] = a[i+1] then begin writeln('yes'); exit; end
    else writeln('no'); 
  end;
end;

var x:string;
begin
  stroka(x);
  readln;
end.

[Mad_Cat]

Находит не

одинаковые числы

а одинаковые цифры

function stroka(a:string):boolean;
var i:integer;
begin
  writeln('cTpoka=');
  readln(a);
  for i := 1 to length(a)-1 do
    if a[i] = a[i+1] then begin result:=true; exit; end
    result:=false; 
end;
var x:string;
begin
  writeln(stroka(x));
  readln;
end.

[leshij]

спасибо!