Даны натуральные числа n< 20 попарно различные действительные числа . в последовательности поменять местами наименьший элемент и элемент с номером 20-n

program nn;

uses crt;

var a:array [1..20] of real;

t:real;

i,n,min:integer;

BEGIN

   {ввод последовательности, это самостоятельно}

   min := 1;

   for i := 1 to 20 do

   begin

      if  a[i] < a[min] then

         min := i;

   end;

   t := a[min];

   a[min] := a[20-n];

   a[20-n] := t;

END.