Найти наибольшее натуральное число ,кратное 13 ,но не превышающее 5000 — Pascal(Паскаль)

var
i,max:integer;
begin
i:=1;
max:=-maxInt;
repeat
if (i mod 13=0) and (i>max) then
begin
max:=i;
end;
inc(i);
until i>5000;
writeln(max);
end.

Var 
  j:word;
Begin
  j:=5000;
  while (j mod 13 <>0) and (j>0) do
    Dec(j);
  writeln(j)
End;