Поменять в массиве максимальный и минимальный элементы местами

program l1;
var
A:array[1..10,1..10] of integer; //заданный двумерный массив
D:array[1..10] of integer;  //новый одномерный массив
k,i,j,m:integer; //i,j,k - счётчики; 
c:real; // c - переменная для вычисления косинуса                       
begin
k:=1;
writeln('Массив A: ');
for i:=1 to 6 do begin
  for j:=1 to 8 do
    begin 
      A[i,j]:=random(10);
      write(A[i,j]:5);
    end;
writeln;
end;
writeln;
 
for i:=1 to 6 
  for j:=1 to 8 //пробегаем весь двумерный массив
    c:=cos(A[i,j]);
    if c>=0 and c<0.5 then
    begin
    B[k]:=A[i,j];  //заносим значение каждой компоненты в новый массив
    inc(k);  //увеличиваем счётчик на 1 (счётчики i,j увеличиваются автоматически)        
end;
 
m:=k;
writeln('Массив В: ');
for k:=1 to m do begin
      write(B[k]:5);
    end;
 
end.

program l1;
var
  A:array[1..10,1..10] of integer; //заданный двумерный массив
  D:array[1..10] of integer;  //новый одномерный массив
  k,i,j,m:integer; //i,j,k - счётчики;
  c:real; // c - переменная для вычисления косинуса
begin
  randomize;
  k:=1;
  writeln('Массив A: ');
  for i:=1 to 6 do
    begin
      for j:=1 to 8 do
        begin
          A[i,j]:=random(10);
          write(A[i,j]:5);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to 6 do
    for j:=1 to 8 do
    //  пробегаем весь двумерный массив
      begin
        c:=cos(A[i,j]);
        if (c>=0) and (c<0.5) then
          begin
            d[k]:=A[i,j];  //заносим значение каждой компоненты в новый массив
            inc(k);  //увеличиваем счётчик на 1 (счётчики i,j увеличиваются автоматически)
          end;
      end;
  m:=k;
  writeln('Массив В: ');
  for k:=1 to m do
    begin
      write(d[k]:5);
    end;
  readln;
end.