Помогите найти ошибку в коде

ЗАДАНИЕ : Дан файл целых чисел. Найти количество квадратов нечетных чисел среди компонент этого файла.СПОСОБ РЕШЕНИЯ : Квадрат нечетного числа есть число нечетное, так как первое слагаемое четное из-за 4 в произведении. Несколько возведений в квадрат нечетных чисел обнаруживают любопытную закономерность - эти квадраты оканчиваются на 1, 5 или 9. Следовательно, получив из строки очередное число и проверив его последнюю цифру можно выявить претендентов на ответ. Остальные попросту игнорируем. Теперь посмотрим на первое слагаемое. Оно делится на 4. Отсюда и алгоритм: из числа, полученного после проверки последней цифры вычитаем 1 и проверяем остаток на делимость на 4. Признаком делимости некоторого числа на 4 является деление на 4 двух последних его цифр. Вот и все. Не надо никаких извлечений квадратного корня. Тем более, что функция Sqrt возвращает действительное число, а понятие нечетности имеет смыл только для целых.КОД : var F : TextFile; S, S1 : String; k, n : Integer;begin AssignFile(F, Edit1.Text); Reset(F); while not Eof(F) do begin ReadLn(F, S); k := 0; {счетчик квадратов нечетных чисел} S := Trim(S) + ' '; {чтобы не потерять последнее число} if S <> ' ' then while Pos(' ', S) > 0 do begin n := StrToInt(Copy(S, 1, Pos(' ', S)-1)); {берем очередное число из строки} System.Delete(S, 1, Pos(' ', S)); {и удаляем его} if ((n mod 10) in [1,5,9]) and {число заканчивается на 1, 5 или 9} (((n-1) mod 100) mod 4 = 0) and {делится на 4} (((n-1) div 4) mod 2 = 0) then begin {и остаток от деления четный} k := k + 1; {увеличили счетчик} Label1.Caption := Label1.Caption + ' ' + IntToStr(n); {добавили число к лейблу} end;ПОМОГИТЕ: Я не могу понять вроде уже все проверил после нажатии кнопки с правильным ответами выводятся 41,89,105 хотя они ими не являются и это я тока до 110 проверил не знаю что будет дольше. найдите ошибку почему не выполняется корректно (((n-1) mod 100) mod 4 = 0) and {делится на 4} (((n-1) div 4) mod 2 = 0) {и остаток от деления четный}