Двумерный динамический массив

[ArcadyTI]

Здравствуйте!
Не могу понять где моя ошибка

<...>
var
  KolT,KolB,Max:string[3];
  x,y,k:byte;
  Itog:array of array of byte;
<...>
for x:=1 to StrToInt(KolB) do
    for y:=1 to StrToInt(KolT) do Itog[x,y]:=random(StrToInt(Max))+1;
<...>

Компиллируется без проблем, но при выполнении выбивает на последней строке с вердиктом "External:SIGSEGV".
Прошу подсказать разбирающихся, поскольку уже перерыл десяток страниц как по ошибке, так и по массивам и вроде всё правильно...

[Аватар]

А где память под массив выделяется?

[ViktorR]

Так понимаю, что Max - строка из трех символов.
В приведенном коде не показано, но в некотором месте кода эти три символа вводятся.
random(StrToInt(Max)) + 1 - генерация случайного числа от 1 до Max.
Предположим, что я ввел Max равным 100. И как тогда, выбивает?
А если Max равен 300?

Обратите внимание на строку и выделенное жирным:

Itog:array of array of byte;

Как-то так, ...

[ArcadyTI]

Спасибо за ответы. Сейчас немного подкорректировал (ошибка нумерации: нумерация элементов начинается с 0 у динамических массивов). Вот начало кода (в Лазарусе довольно объемный формируется начальный код, с которым ещё не разобрался):

program Generator;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

var
  KolT,KolB,Max:string[3];
  x,y,k:byte;
  Itog:array of array of byte;

type

  { Generator }

  TGenerator = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;

{ Generator }

procedure TGenerator.DoRun;
var
  ErrorMsg: String;
  Label m1;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;

  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;

  Write('Kolitschestwo biletov: ');
  ReadLn(KolB);
  Write('Kolitschestvo tschisel: ');
  ReadLn(KolT);
  Write('Maximalnoe znatschenie: ');
  ReadLn(Max);
  randomize;
  for x:=0 to StrToInt(KolB)-1 do
    for y:=0 to StrToInt(KolT)-1 do Itog[x,y]:=random(StrToInt(Max))+1;
  <...>

Вводимые данные в промежутке от 1 до 99. Ошибка - постоянно.

[ZX Spectrum-128]

Вам уже сказали, что не выделяется память под массив.
SetLength(itog,...);

[ArcadyTI]

Спасибо огромное! Упустил из виду (странно, коль это необходимо, то почему компилятор пропустил сие недоразумение?).

[ZX Spectrum-128]

Выделение памяти для динамического массива на совести программиста, а не компилятора.

[ArcadyTI]

Немного сократил код, ввёл setlength и всё равно ругается на ту же строку:

p1:=StrToInt(KolB)-1;
  p2:=StrToInt(KolT)-1;
  p3:=StrToInt(Max);
  SetLength(Itog,p1,p2);
  for x:=0 to p1 do
    for y:=0 to p2 do Itog[x,y]:=random(p3)+1;

[ZX Spectrum-128]

Попробуйте протрассировать, узнав чему равны p1, p2, p3

[Аватар]

for x:=0 to p1-1 do
    for y:=0 to p2-1 do