Экономика
даны действительная матрица размера nx(n+1),действительные числа a1....an+1,b1....bn+1,натуральные числа p,q(p<=n,q<=n+1)Образовать новую матрицу размера (n+1)x(n+2) вставкой после строки сномером p данной амтрицы новой строки с элементами a1...an+1 и последующейй вставкой после столбца с номером q нового столбца с элементами b1...bn+1
const n=30;
var i,j,p,q:integer;
c:array[1..n,1..n+1] of integer;
a:array[1..n+1] of integer;
b:array[1..n+1] of integer;
begin
readln(q,p);
For i:=1 to n do
For j:=1 to n+1 do
c[i,j]:=random(28)+1;
begin
for i:=1 to n+1 do
p:=random(28)+1;
end;
for j:=1 to n+1 do begin//
q:=random(28)+1;
end;
for i:=n downto p do//
for j:=1 to n+1 do
c[i+1,j]:=c[i,j];
for j:=1 to n+1 do c[p,j]:=a[i];
for j:=n+1 downto q do
for i:=1 to N+1 do
c[i,j+1]:=c[i,j];
for i:=1 to n+1 do c[i,q]:=b[i];
for i:=1 to n do
begin
for j:=1 to n+1 do
write(c[i,j]:2);
writeln;
end;
end.
помогите исправить ошибки или сделайте пожалуйста уже готовую программу(паскаль).Заранее спасибо
