Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m - Pascal

Формулировка задачи:

Задача: Найти все трехзначные числа сумма квадратов цифр, которых кратна заданному числу m. Составить программу, которая выводит такие числа на экран. Решила с фор, не получается с вайл. Помогите,пожалуйста

Решение задачи: «Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m»

Листинг программы

var
    i: Word;
    m: Integer;
begin
    Write('Input m='); ReadLn(m);
    i := 100;
    while (i < 1000) do
    begin
        if ((Sqr(i div 100) + Sqr((i div 10) mod 10) + Sqr(i mod 10)) mod m = 0)
        then
            Write(i:4);
        Inc(i);
    end;
end.

Объяснение кода листинга программы

i: 100 - переменная, которая хранит текущее трехзначное число
m: Integer - переменная, которая будет хранить вводимое пользователем число
Write('Input m='); ReadLn(m); - выводит текст Input m= и ждет ввода значения для переменной m
while (i < 1000) do - цикл, который будет выполняться пока переменная i меньше 1000
if ((Sqr(i div 100) + Sqr((i div 10) mod 10) + Sqr(i mod 10)) mod m = 0) - проверка, является ли сумма квадратов цифр текущего числа кратной числу m
then Write(i:4); - если условие выполняется, то выводится текущее трехзначное число
Inc(i); - увеличивает значение переменной i на 1
end; - завершение блока цикла
end. - конец программы