Подскажите с задачей по Паскалю

Суть задачи заключается в создании матрицы(квадратной).
Проблема возникает с выводом данных. Строки не чередуются через 1 и получается прямоугольник, а не квадрат.
---
program lab11;
var m:array[1..1000,1..1000] of integer;
x,i,j,n:integer;
begin
n:=1;
writeln('Введите разрядность матрицы');
read(x);
for i:=1 to x do
for j:=1 to x do
if i=j then begin m[i,j]:=(n+1)*n; n:=n+1; end else m[i,j]:=0;
for i:=1 to x do begin writeln;
for j:=1 to x do write(m[i,j]:4); end;
end.
---
Возможно ли пустые строки вставлять через 1?


Примечание:
Задание не надо понимать. Просто вставляете код в Паскаль, запускаете и смотрите на моё последнее предложение.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.