Напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых

Пишем программу:
uses Crt;
const YN: array[boolean] of string[3] = ('No','Yes');
var
i: integer;
n: string;
b: boolean;
begin
clrscr;
writeln('N = ?');
readln(n);
b:= false;

for i:= 1 to length(n)-1 do
if n[i] = n[i+1] then begin
b:= true;
break
end;
writeln(YN[b]);
readln
end.
Программа написана.