Pascalabc, алгоритм и программа

Язык: Pascal.

var

   a: array [1..20] of integer;  {объявляем целочисленный массив на 20 элементов}

   i, min, t, m: integer;  {i - счетчик, min - минимум, t, m - временные переменные}

begin  

{рандом 20 чисел в диапазоне [-20;12]}

 randomize;  

 for i:=1 to 20 do

   a[i]:=random(33)-20;

   min:=a[1];  //присваиваем минимуму первый элемент.

{цикл начинается с 2, чтобы не делать лишнюю итерацию}

 for i:=2 to 20 do  

 begin

{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}

   if min > a[i] then

   begin

   min:=a[i];

   m:=i;

   end;

 end;

{выводим старый массив}

 Writeln('Старый массив:');

 for i:=1 to 20 do

   writeln(a[i]);

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

 t:=a[20];

 a[20]:=min;

 a[m]:= t;

{выводим новый массив}

 Writeln('Новый массив:');

 for i:=1 to 20 do

   writeln(a[i]);

end.