Найти сумму двузначных натуральных чисел до N у которых цифры равны между собой. Программа на паскале через цикл for

Var
   N,S:integer;
Begin
WriteLn('Введите двузначное число: ');ReadLn(N);
S:=0;
For N:= 10 to N do
    if N div 10 = N mod 10 then S:=S+N;
WriteLn('S = ',S);
End.

Цикл должен точно выглядеть так for i:=10 to n do и нужно ведь найти сумму