Напишите прогу в паскале

Вводится последовательно 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. Если нигде не ошибся, то должно работать именно так