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

Пишем программу:

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.

Программа написана.