Матрица,2 одномерных массива и 2 натуральных числа

[SweetSweet]

Здравствйте уважаемые программисты. У меня загвоздка с задачей,уже 3 день пытаюсь решить но неполучается.

Вот сама задача:

Дана матрица А((n)x(n+1)) и два одномерных массива Х=(х1,х2...хn) и Y=(y1,y2...yn),а так же натуральные числа p и q. Образовать новую матрицу B((n+1)x(n+2)) вставкой после строки с номером p матрицы A новой строки с элементами x1,x2...xn и последующей вставкой после столбца с номером q нового столбца с элементами y1,y2...yn.

Вот как я начал:

uses CRT;
const n1 = 100;
type matr=array[1..n1,1..n1] of integer;
arr=array[1..n1] of integer;
var a,b:matr;
x,y:arr;
i,j,q,p,n:integer;
begin
write('Дана матрица А((n)x(n+1)) и два одномерных массива Х=(х1,х2...хn) и Y=(y1,y2...yn),а так же натуральные числа p и q. Образовать новую матрицу B((n+1)x(n+2)) вставкой после строки с номером p матрицы A новой строки с элементами ');
write('x1,x2...xn и последующей вставкой после столбца с номером q нового столбца с элементами y1,y2...yn.');
writeln;
write('Введите значение n');
readln(n);
write('Получайте матрицу');
for i:=1 to n do
begin
for j:= 1 to n do
begin
a[i,j]:=-25+random(51);
write(a[i,j]:3);
end;
writeln;
write('Получите одномерный массив X:');
for i:= 1 to n do
begin
x[i]:=-25+random(51);
write(x[i]:3);
end;
writeln;
write('Получите одномерный массив Y:');
for i:= 1 to n do
begin
y[i]:=-25+random(51);
write(y[i]:3);
end;
writeln;
write('введите значение q');
read(q);
writeln;
write('введите значение p');
read(p);
end;
end...

Прошу помогите дописать остальное решение,никак неполучается решить эту задачу.

[SweetSweet]

ой,удалите тему,нетуда отписал

http://www.programmersforum.ru/showt...302#post642302