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

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

Var   N,S:integer;BeginWriteLn('Введите двузначное число: ');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.