Статический одномерный массив(паскаль)

[Yurik555]

Есть 3 статических одномерных массива.Пользователь вводит их, массивы(каждый) сортируются по убыванию и заносятся в динамический двумерный массив

В чем ошибка в программе.Помогите пожалуйста исправить

var a,b,c: array[1..10] of integer;
x:array of integer;
i,j,n:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10)-5;
b[i]:=random(10)-5;
c[i]:=random(10)-5;
end;

procedure Sorting (var mas: array of integer; const count: integer)
var
i: integer;
flag: boolean;
begin
repeat
flag := false;
for i := 1 to (count - 1) do
if mas[i] < mas[i+1] then
begin
flag := true;
mas[i] := mas[i] + mas[i+1];
mas[i+1] := mas[i] - mas[i+1];
mas[i] := mas[i] - mas[i+1]
end;
until flag = false;
end;

SetLength(x,32); {специальная процедура выделения памяти}
for i:=1 to 10 do
begin
inc(j);
x[j]:=a[i];
for i:=1 to 10 do
begin
inc(j);
x[j]:=b[i];
end;
for i:=1 to 10 do
begin
inc(j);
x[j]:=c[i];
end;
for i:=1 to 30 do write(x[i],' ');
end.

В чем ошибка в программе.Помогите пожалуйста исправить

В чем ошибка в программе.Помогите пожалуйста исправить

[Hacker19_90]

и заносятся в динамический двумерный массив

и где же то у вас двумерный массив?
Да и end у вас не хватает

for i:=1 to 10 do
 begin
 inc(j);
 x[j]:=a[i];
 for i:=1 to 10 do
 begin
 inc(j);
 x[j]:=b[i];
 end;
 for i:=1 to 10 do
 begin
 inc(j);
 x[j]:=c[i];
 end;
 for i:=1 to 30 do write(x[i],' ');
 end.

[Yurik555]

помогите пожалуйста исправить ошибки