Вставить строку после всех строк матрицы, в которых находится заданное число А

Const nmax=20;
Var T:array[1..nmax+1,1..nmax] of integer;
    i,j,n,m,a,im:integer;
Begin
    write('Введите кол-во строк <=',nmax,': ');readln(n);
    write('Введите кол-во столбцов <=',nmax,': ');readln(m);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        T[i,j]:=random(31)-15;
        write(T[i,j]:4);
      End;
      writeln;
    End;
    write('Введите a: ');readln(a);
    im:=0;
    For i:=1 to n do
    Begin
      For j:=1 to m do
       if (T[i,j]=A) then im:=i;
      if im<>0 then break;
    End;
    if im<>0 then
    Begin
      inc(n);
      For j:=1 to m do
       T[n,j]:=T[im,j];
      writeln('Преобразованная матрица');
      For i:=1 to n do
      Begin
        For j:=1 to m do
         write(T[i,j]:4);
        writeln;
      End;
    End
    else writeln('В матрице нету числа ',A);
End.