Отправлено: 20.04.17 14:17. Заголовок: Задача 64. (С4. материалы для тренировки)

Здравствуйте, не могли бы вы оценить такое решение 64 задачи:

var N: integer;
m1, m2, a, i, max, R: integer;
begin
readln(N);
m1 := 1; m2 := -1;

for i:=1 to N do begin
readln(a);
if (a > m1) then begin
if a*m1 mod 26 <> 0 then begin m2:=m1; m1:= a end
else if a*m2 mod 26 <> 0 then m1:= a;
end
else
if (a > m2)and (a*m1 mod 26 <> 0) then m2:= a;
end;
read(R);
max:= m1*m2;
if max > 0 then
writeln('Вычисленное контрольное значение: ', max);
if R = max then
writeln('Контроль пройден.', R)
else
writeln('Контроль не пройден.', max);
end.


Не могу подобрать контрпример. Или все верно?