Определить максимальное трёхзначное целое число, которое нацело делится на 21. вывести значения: делимое число, остаток от деления на 21 и целое частное для каждого шага алгоритма. отдельной строкой вывести ответ. написать прогу в паскале

Program X;

var
max, i: longint;

begin

 max:=0;

for i := 100 to 999 do
  begin
    writeln('Делимое: ', i , ' Остаток: ' , i mod 21, ' Целое частное: ' , i div 21 );
    if (i mod 21) = 0 then max := i
  end;

writeln('ответ: ', max)
end.