Вывести на экран все числа от 10 до -10, затем квадраты этих чисел

Program z;  var i:integer;begin  for i:=-10 to 10 do    begin      write(i,' ');    end;writeln();  for i:=-10 to 10 do    begin      write(sqr(i),' ');    end;end.