Вложенные циклы в Pascal?

Question

[Ivanq]

Здравствуйте! Пишу небольшую программу на паскале (Pascal ABC):

uses GraphABC, Arrays;
var map:array[,] of integer;
var xsize, ysize, x, y:integer;
begin
  ...
  for x := 0 to xsize-1 do
    for y := 0 to ysize-1 do
      map[x, y] := 1;
  ...
end.

Выдает ошибку на строке for y := 0 to ysize-1 do:
Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.
Похоже, что-то с внутренними циклами. xsize и ysize определяются нормально, x и y тоже как integer. Кто сталкивался с подобной проблемой? В поисковике не нашел.

UPD Вот еще нашел - если убрать заполнение массива, ошибка убирается, но что делать - непонятно.

Comments

[tex0]

А у вас 'xsize' и 'ysize' где и чем инициализируются (такое ощущение что это переменная у вас в значении NULL или что-то типа того, не помню как это в паскале)?

[Ivanq]

tex0: Там где ... Там стоит readln

Answer 1

[buksttabu]

у Вас же массив динамический. Попробуйте сначала выделить память для него: setLength(map, xsize, ysize)

Comments

[Ivanq]

Спасибо! Я уже сам разобрался.

Answer 2

[AVKor]

Ничего не знаю про PascalABC, но во FreePascal вот такой, например, код:

const
  xsize = 2;
  ysize = 2;
var
  map : array[0..xsize,0..ysize] of integer;
  x, y : integer;
begin
  for x := 0 to xsize-1 do
    for y := 0 to ysize-1 do
      map[x,y] := 1
end.

будет работать.

Comments

[Ivanq]

На определения длины массива переменной говорил ошибку, а вот помог setLength()

[AVKor]

Ivanq: Во FreePascal мой код работает. И должен работать в любом классическом компиляторе. За ABC ничего не могу сказать.

В общем, с точки зрения языка, в самих вложенных циклах в коде из стартового сообщения не было никакого криминала.