Произвести действия над матрицей по заданному условию

var
  min: array[1..5, 1..5] of integer;
  a: array[1..5, 1..5] of integer;
  i, j, k, n, p, h: integer;
  m: boolean;
 
begin
  Write('Введите количество строк: '); 
  readln(k);
  Write('Введите количество столбцов: ');
  readln(n);
  Writeln('Введите элементы массива');
  for i := 1 to k do 
    for j := 1 to n do 
    begin
      write('A[', i, ',', j, ']= ');
      readln(A[i, j]);
    end; 
  for j := 1 to n do 
  begin
    m := true;
    for i := 1 to k do
    begin
      if A[i, j] < 0 then 
        m := false;
    end;
    if m = true then 
    begin
      min[i, j] := a[i, 1];
      for i := 1 to k do
      begin
        if a[i, j] <= min[i, j] then
          min[i, j] := a[i, j];
      end;
    end;
  end;
  for j := 1 to n do 
    for i := 1 to k do
    begin
      if A[i, j] = min[i, j] then 
        A[i, j] := A[i, j] * A[i, j] * A[i, j];
    end;
  writeln('min[', i, ',', j, ']= ', min[i, j]);
  writeln(min);
  i := 2;
  while i <= n do
  begin
    for j := 1 to n - 1 do
      for h := j + 1 to n do
        if a[i, j] < a[i, h] then
        begin
          p := a[i, j];
          a[i, j] := a[i, h];
          a[i, k] := p;
        end;
    i := i + 2;
  end;
  for i := 1 to k do
  begin
    for j := 1 to n do
    begin
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  write(a);
end.