СРОЧНО составце программу,выводящую на экран все числа от -10 до 10,а также их модул

Var i:integer;..... begin..... for i:=-10 to 10 do...... begin.... writeln('число=',i);..... writeln('модуль=',abs(i));.... end;... end....