Массивы Опции

[starmaster]

Почему не работает этот пример?

Код

program Project2;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var A,C,i:integer;
var Mas:array of integer;
begin
 i:=0;
 repeat
      ReadLn(A);
      Mas[i]:=A;
      inc(i);
 until A=0;
 SetLength(Mas,i);
 C:=Length(Mas);
 WriteLn(C);
 ReadLn;
end.

[xds]

Там "Access Violation": программа пытается записывать данные в динамический массив, не выделив предварительно память под них (не определив размер массива, достаточный для добавления очередного элемента). Работоспособный код, полученный из данного путем наименьшего сопротивления, будет выглядеть так:

Код

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var A,C,i:integer;
var Mas:array of integer;
begin
i:=0;
repeat
  ReadLn(A);
  SetLength(Mas,i + 1);
  Mas[i]:=A;
  inc(i);
until A=0;
C:=Length(Mas);
WriteLn(C);
ReadLn;
end.