Помjгите составить прогу чтоб на экране выводились все числа от-10 до 10 а также их модули

Program primer;
Vari:integer;beginfor i:=-10 to 10 do    begin    writeln(i,'    ',abs(i));    end;end.