По-разному работает идентичный код в одной проге

[dkann]

PHP код:

program rs2;

{$APPTYPE CONSOLE}


uses
  SysUtils;
  var  a,b,c,x1,x2:array[1..100500] of integer;
  xi,i:integer;
procedure masinit(var v:array of integer);
var i:integer;
begin
  randomize;
  for i:=1 to 10 do
    v[i]:=random(40);
end;
procedure masout( v:array of integer );
var i:integer;
begin
// идентичный компонент1
  for i:=1 to 10 do
    write(' ', v[i], ' [',i,'] ');
end;
begin
  masinit(b);
  masout(b);
  writeln;
// идентичный компонент 2
  for i:=1 to 10 do
    write(' ', b[i], ' [',i,'] ');
  readln;
end. 


Проблема в том, что элементы смещаются на 1:
Вывод:

30 [1] 8 [2] 22 [3] 33 [4] 2 [5] 2 [6] 6 [7] 2 [8] 23 [9] 15 [10]
0 [1] 30 [2] 8 [3] 22 [4] 33 [5] 2 [6] 2 [7] 6 [8] 2 [9] 23 [10]

Вопрос в том, как решить трабл?

[GunSmoker]

Учи мат-часть.

[Serge_Bliznykov]

задавайте принудительно, сколько знаков отводить под вывод, тогда будет одинаково.
например, выводить число в 5 знакомест,

  for i:=1 to 10 do
    write(' ', v[i]:5, ' [',i,'] ');
....

  for i:=1 to 10 do
    write(' ', b[i]:5, ' [',i,'] ');