Даны натуральные числа N меньше 20 попарно различные действительные числа а1...а20. В последовательности а1....а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.