Разработать алгоритм и программу обработки

program Matrix;
uses crt;
const
nmax=20;{максимальный размер матрицы}
var
i,j,m,n,p,q:integer;
ms:array [1..nmax,1..nmax] of real;
a:array [1..nmax] of real;{массивы назовем как в условии}
b:array [1..nmax] of real;
begin
clrscr;
randomize;
write('m=');
repeat
readln(m);{вводим количество строк}
until m in [1..nmax];{проверяем чтоб не вылезло за пределы}
n:=m+1;{количество столбцов}
writeln ('Matrix');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    ms[i,j]:=10*random;{числа вещественные}
    write (ms[i,j]:5:2);
   end;
  writeln;
 end;
writeln;
write ('p=');
repeat
readln(p);
until p in [1..n];{проверяем диапазон}
write('q=');
repeat
readln (q);
until q in [1..n+1];
writeln;
writeln('Massiv A:');
for i:=1 to n do
  begin
   a[i]:=10*random;
   write (a[i]:5:2);
  end;
writeln;
writeln('Massiv B:');
for i:=1 to n do
  begin
   b[i]:=10*random;
   write (b[i]:5:2);
  end;
writeln;
writeln;
{вставка строки}
if p=m then{если после последней}
 begin
  for i:=1 to n  do
  ms[m+1,i]:=a[i];{в добавленную строку пишем массив А}
 end
else{если нет}
 begin
  for j:=1 to n do{все строки}
   begin
    for i:=m+1 downto p+2 do{от последней до места вставки}
    ms[i,j]:=ms[i-1,j];{сдвигаем вниз}
    ms[p+1,j]:=a[j];{на освободившееся место пишем массив А}
   end;
 end;
{вставка столбца}
if q=n then{если за последним}
 begin
  for i:=1 to m+1 do
  ms[i,n+1]:=b[i];{записываем массив В}
 end
else{иначе}
 begin
  for i:=1 to m+1 do{все столбцы}
   begin
    for j:=n+1 downto q+2 do{от последнего до места вставки}
    ms[i,j]:=ms[i,j-1];{сдвигаем вправо}
    ms[i,q+1]:=b[i];{пишем на свободное место массив В}
   end;
 end;
Writeln('Rezultat:');
for i:=1 to m+1 do{выводим матрицу в новых размерах}
 begin
  for j:=1 to n+1 do
  if(i=p+1)or(j=q+1)then{если это вставленные строка и столбец}
   begin
    textcolor(12);{выделим ярко-красным цветом}
    write(ms[i,j]:5:2);
   end
  else
   begin
    textcolor(15);{остальные по умолчанию, обычно белый или черный(0)}
    write(ms[i,j]:5:2);
   end;
  writeln;
 end;
readln
end.