Напишите прогу в паскале вводится последовательно 15 чисел найти самое большое положительно кратное 3

Var  i, a, b, max: integer;
begin  max := -maxint; b := 0;  for i := 1 to 15 do   begin    Write('Введите число: '); Readln(a);    if (a mod 3 = 0)      then if (a > max) then max := a;  end;  Write('Самое большое число кратное 3 = ', max);end.Если нигде не ошибся, то должно работать именно так