Вставить строку со значением максимального элемента массива .

var a:array[1..20,1..20] of integer;
    b:array[1..20] of integer;
    m,n,i,j,max,imax,k,p,x,y:integer;
begin
randomize;
repeat
write('Введите количество строк от 2 до 10 m=');//+10 для вставок
readln(m);
until m in [2..10];
repeat
write('Введите количество столбцов от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
    //найдем максимум и номер строки с ним
    if i+j=2 then
     begin
      max:=a[i,j];
      imax:=1;
     end
    else if a[i,j]>max then
     begin
      max:=a[i,j];
      imax:=i;
     end;
   end;
  writeln;
 end;
writeln('Максимальный элемент=',max);
writeln('Строка с максимальным элементом номер ',imax);
for j:=1 to n do
 begin
  b[j]:=a[imax,j];  //запомним строку
  write(b[j]:3);
 end;
writeln;
write('Введите число для поиска в матрице x=');
readln(x);
y:=0;
i:=1;
while i<=m do
 begin
  j:=1;
  while(j<=n)and(a[i,j]<>x) do inc(j);
  if j<=n then  //есть в строке число х
   begin
    y:=1;  //фиксируем
    inc(m);//увеличим число строк на 1
    for k:=m downto i+2 do //сдвинем строки ниже найденной на 1 вниз
    for p:=1 to n do
    a[k,p]:=a[k-1,p];
    for p:=1 to n do //вставим строку с макс.
    a[i+1,p]:=b[p];
    inc(i,2); //перешагнем через строку
   end
  else inc(i); //если нет, следующая
 end;
if y=0 then
 begin
  writeln('В матрице нет числа ',x);
  exit;
 end;
writeln('Вставка ',imax,'-ой строки после строк с числом ',x);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.