Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9.

[Afonichka]

необходимо написать на языке паскаль решение задачи через оператор repeat.
ответ: 18, 45, 90, 99.
Вот что имею. Где-то ошибка, и выдается неверный ответ. Подтолкните к правильному решению.

var i,j,m, s,s1,z,sravn:integer;
begin
i:=10;
repeat
m:=i;s:=0; sravn:=0;
s:=s + m mod 10; m:=m div 10;
m:=i;j:=2;
repeat
z:=m*j;s1:=0;
if z<0 then
s1:=s1+z mod 10; z:=z div 10;
if s=s1 then inc(sravn);
if sravn=8 then writeln('ЧИСЛО ',i);
until j>9; inc(j);
until i>99;inc(i);
end.

[ViktorR]

Тут много ошибок.
1.

s:=s + m mod 10; m:=m div 10;

Надо понимать, что s - сумма цифр числа. Но это не так. Вероятно тут можно написать так:

s := m mod 10 + m div 10;

2. При умножении двухзначного числа может получиться и трёхзначное.
В этом случае можно сумму цифр нового числа вычислять в предположении, что все числа трёхзначные:

newn := m * j; {j = 2,3,4..9}
news := newn mod 10 + (newn div 10) mod 10 + newn div 100;

Я не знаю, в каком Паскале так пишут:

until j>9; inc(j);
until i>99;inc(i);

Инкремент переменных должен быть внутри цикла:

...
       inc(j);
   until j>9;
   inc(i);
until i>99;inc(i);

[Afonichka]

Большое спасибо Виктор, буду исправлять и проверять.