В матрице после каждой строки, сумма элементов которой больше 10, вставить новую строку

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
    s:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5);
    write(a[i,j]:3);
   end;
  writeln;
 end;
i:=1;
while i<=m do
 begin
  s:=0;
  for j:=1to n do
  s:=s+a[i,j];
  {вставка строк}
  if s>10 then
   begin
    m:=m+1; {добавим строку}
    if i=m-1 then{если предпоследняя}
     begin
      for j:=1 to n do
      a[m,j]:=s;{пишем в последнюю суммы}
     end
    else {если не предпоследняя, сдвмгаем вниз конец масива}
     begin
      for k:=m downto i+2 do
      for j:=1 to n do
      a[k,j]:=a[k-1,j];
      for j:=1 to n do
      a[i+1,j]:=s;{пишем суммы на освободившееся место}
     end;
    i:=i+2;{перешагиваем}
   end
  {удаление строк}
  else if s<5 then
   begin
    if i=m then m:=m-1{если строка на этот момент последняя}
    else {если не последняя}
     begin
      for k:=i to m-1 do{от этой строки до предпоследней}
      for j:=1 to m do{всем элементам строк}
      a[k,j]:=a[k+1,j];{присваиваем значения нижней}
      m:=m-1;{уменьшаем количество}
     end;
    end
   else i:=i+1;{если не >10 и не <5 дальше}
 end;
writeln('Вставка и удаление строк по условию:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
end.