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

Пишем программку:
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.
Программка написана.