Напечатать на экране все трёхзначные числа кратные заданному числу k (5<=k<=50 ). Числа каждой сотни располагать на отдельной строке- Pascal(Паскаль)

uses crt;
var i,k:integer;
begin
clrscr;
repeat
write('Введите число от 5 до 50 k=');
readln(k);
until k in [5..50];
writeln('Трехзначные числа, кратные ',k);
for i:=100 to 999 do
begin
 if i mod k=0 then write(i:4);
 if i mod 100=0 then writeln;
end;
readln
end.