Дана последовательность из n целых чисел. Найти, есть ли в ней

program zz1;
const n = 13; // задаем количество частей в последовательности
R:array [1..n] of integer=( 26, -53, 0, -67, 12, -34, 0, 90, 14, -78, 26, -45, 66 ); // задаем последовательность чисел
var i, m:integer; // задаем переменные целого типа
begin
for i:=2 to n do // организуем цикл, в котором переберем все числа в последовательности
if R[i] = R[1] then m:=1; // проверяем, если число последовательности равено первому, то запоминаем это событие
if m = 1 then writeln( в последовательности есть число одинаковое первому числу )
else writeln( в последовательности нет числа одинакового первому числу ); // выводим ответ
end.