Пришло время проверить, правильным ли было решение инвестировать деньги в заводы.

Пришло время проверить, правильным ли было решение инвестировать средства в фабрики. Вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. Проверка проста - у всех шестеренок обязан быть однообразное количество зубцов.
Формат входных данных
Вводится целое положительное число n, где n - количество деталей для проверки (2 lt; n lt; 1000)

Вводится n целых чисел m, где m - количество зубцов у каждой шестеренки (1 lt; m lt; 100)

Формат выходных данных
Выводится известие YES в случае, если количество зубцов у всех шестеренок оказалось схожим и NO, если желая бы одна из них имеет хорошее от иных количество зубцов

Помогите отыскать ошибку
var
n,s,i,m,m1:int64;
begin
s:=0;
Read(n,m1);
For i:=1 to n-1 do begin
Read(m);
if m = m1 then
S:=s+1;
m:=m1;
end;
if s = n or m1 then begin
Write('YES');
end;
if s lt;gt; n or m1 then
Write('NO');
end.

ДАЮ 45 БАЛЛОВ!!!!