Найти наименьший элемент и поменять его местами с первым элементом.

const
  n = 20;
var
  arr: array[1..n] of integer;
  min, buf: integer;
  i: byte;
begin
  randomize;
  min:=1;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    arr[i]:=random(40);
    write(arr[i], ' ');
    if arr[i] < arr[min] then min:=i;
  end;
  writeln;
  writeln('Минимальный: ', Arr[min]);
  buf:=arr[min];
  arr[min]:=arr[1];
  Arr[1]:=buf;
  writeln('Массив: ');
  for i:=1 to n do
    write(arr[i], ' ');
end.

uses crt;
const
   n=10;
var
   x:array [1..n] of integer;
   i,min,imin,buff:integer;
begin
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do
    begin
    x[i]:=random(20)-10;
    write(x[i],' ');
    if min>x[i] then
       begin
       min:=x[i];
       imin:=i;
       end;
    end;
writeln;
writeln('[min=',min,' index=',imin,']');
buff:=x[1];
x[1]:=min;
x[imin]:=buff;
writeln('Ìàññèâ ñ çàìåíîé 1ãî è max åëåìåíòîâ:');
for i:=1 to n do
write(x[i],' ');
end.

uses crt;
const
   n=10;
var
   x:array [1..n] of integer;
   i,buff,max,imax:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
    begin
    x[i]:=random(20)-10;
    write(x[i],' ');
    if max<x[i] then
       begin
       max:=x[i];
       imax:=i;
       end;
    end;
writeln;
writeln('[max=',max,' index=',imax,']');
buff:=x[1];
x[1]:=max;
x[imax]:=buff;
writeln('Массив с заменой 1го и max елементов:');
for i:=1 to n do
write(x[i],' ');
end.