turbo pascal 7.0 повторение последнего столбца в двумерном массиве

Последний столбец повторяет предыдущий как при заполнении случайными значениями, так и при обработке массива

Примечание:
Как от этого избавиться?

Примечание:
program pr0;
var a: array[1..15, 1..10] of integer;
m,n:integer;
begin
randomize;
for m:=1 to 15 do begin
for n:=1 to 10 do begin
a[m,n]:=random(301)-150;
write (a[m,n]:5);
end;
writeln (a[m,n]:5);
end;
readln(n,m);
writeln(a[m,n]);
readln
end.

Примечание:
При уберании writeln пропадает желательная упорядоченость, при написании отдельного writeln происходит тоже самое, что и ранее

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

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

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