в двумерном массиве возвестив квадрат строки, расположенные между строками с мин и макс элементами

program N184791614;
var
  a: array of array of double;
  i, j, imin, imax: integer;
  min, max: double;
begin
  randomize;
  setlength(a, random(9) + 2, random(9) + 2);
  writeln('Дан массив ', length(a), 'x', length(a[0]), ':');
  for i := Low(a) to High(a) do
  begin
    for j := Low(a[i]) to High(a[i]) do
    begin
      a[i, j] := (random(1999) - 999) / 100;
      write(a[i, j]:8:2)
    end;
    writeln
  end;

  imin := Low(a);
  imax := imin;
  max := a[imin, Low(a[imin])];
  min := max;
  for i := Low(a) to High(a) do
    for j := Low(a[i]) to High(a[i]) do
    begin
      if a[i, j] < min then
      begin
        min := a[i, j];
        imin := i
      end;
      if a[i, j] > max then
      begin
        max := a[i, j];
        imax := i
      end
    end;

  for i := ord(imin < imax) * imin + ord(imin > imax) * imax + 1
      to ord(imin > imax) * imin + ord(imin < imax) * imax - 1 do
    for j := Low(a[i]) to High(a[i]) do
      a[i, j] := sqr(a[i, j]);

  writeln(#10'Преобразованный массив: ');
  for i := Low(a) to High(a) do
  begin
    for j := Low(a[i]) to High(a[i]) do
      write(a[i, j]:8:4);
    writeln
  end;

  write(#10'Для завершения работы нажмите Enter...');
  readln;
  Finalize(a)
end.



Максимум - во второй строке (8,41), минимум - в шестой (-9,81). Все элементы в строках между этими возведены в квадрат.
Если максимум и минимум расположены в одной строке или в соседних, то массив не изменяется.