Шестизначное число оканчивается цифрой 4. Если эту цифру переставить из конца

Сначала зададим минимальное шестизначное число, которое будет удовлетворять условиям задачки. 
Оно заканчивается на цифру 4, а означает, при разряд сотен тыщ должен быть равен единице, по другому при умножении двух сотен на 4 мы никогда не получим 4 в разряде сотен тысяч.
Объявим переменные:
var n,n_,i:integer;
s:string;

Задаем минимальное шестизначное число для задачки:
n:=100004;
Дальше запускаем повторение, пока наше число, умноженное на 4 не даст подходящий итог:
repeat
n:=n+10;
str(n,s);
s:=s[6]+copy(s,1,5);
writeln(n, * 4 != , n_);
val(s,n_,i);
until (n*4 = n_);
writeln(n, * 4 = , n_);
end.