Помогите пожалуйста определить високосный ли год или нет. Пишет YES или NO и следующий ближайший високосный год. Это в паскале.

Program n1;var a,i: integer;beginreadln(a);if (a mod 4 = 0) and (a mod 100<>0) or (a mod 400=0)then writeln ('yes') else writeln ('no');i:=a;while true dobegini:=i+1;if (i mod 4 = 0) and (i mod 100<>0) or (i mod 400=0) thenbeginwriteln(i);break;end;end;end.