TurboDelphi глючит встроенная процедура

[Volch]

Надо написать процедуру Massiv, которая заполняет случайным образом одномерный массив A(n), n<=10, целыми числами и выводит его на экран. Основная программа выводит на экран пять различных массивов.

Моя программа выводит максимум 2 массива, на остальных консоль пропадает.

program project1;
uses
SysUtils;

procedure Massiv(N:integer);

var
b:integer;
A:array of integer;
str:string;
begin
{$APPTYPE CONSOLE}
randomize;
N:=Random(10);
setLength(A,N);
str:='';
for b := 0 to N do
begin
A[b]:=Random(100); //Заполняем массив случайными числами
str:=str+intToStr(A[b])+', ';
end;
writeln(str);
readln;
end;

var
c:integer;
N:integer;
begin
{$APPTYPE CONSOLE}
for c := 1 to 5 do
Massiv(N);
readln;
end.

[Пепел Феникса]

не понимаю что вы пытались написать, но вынужден сообщить что ничего не глючит просто вы ошиблись

1)вариант(так как не понял)

program project1;
{$APPTYPE CONSOLE}
uses SysUtils;

procedure Massiv(N:integer);
var b:integer;
    A:array of integer;
    str:string;
begin
 randomize;
 setLength(A,N);
 str:='';
 for b := 0 to N-1 do
  begin
   A[b]:=Random(100);
   str:=str+intToStr(A[b])+', ';
  end;
 writeln(str);
 readln;
end;

var c,N:integer;
begin
 N:=5;
 for c := 1 to 5 do Massiv(N);
 readln;
end.

2)вариант:

program project1;
{$APPTYPE CONSOLE}
uses SysUtils;

procedure Massiv;
var b,N:integer;
    A:array of integer;
    str:string;
begin
 randomize;
 N:=random(10)+1;
 setLength(A,N);
 str:='';
 for b := 0 to N-1 do
  begin
   A[b]:=Random(100);
   str:=str+intToStr(A[b])+', ';
  end;
 writeln(str);
 readln;
end;

var c:integer;
begin
 for c := 1 to 5 do Massiv;
 readln;
end.

[Volch]

Спасибо, но ваши примеры у меня выдают только 1 массив

[Volch]

Все, теперь разобрался, удалил лишнюю строку, спасибо.