Программа при вводе года выводит — век (типа 2000-20,2001-21) — Pascal(Паскаль)

uses crt;
var g,v:word;
begin
clrscr;
repeat
write('Vvedite god ot 1 do 2009 g=');{можете свой интервал задать}
readln(g);
until(g>=1)and(g<=2009);
if g mod 100=0 then v:=g div 100{если последний год века, на 00 оканчивается}
else v:=g div 100+1;{остальные года}
write('Vek=',v);
readln
end.