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

Program a1;

var y: array[1 ... 14] of integer; k, s1, s2: byte; minY, maxY, m: integer;

begin

writeln ('Vvedite massiv Y: ') ; {просим ввести массив}

for k:=1 to 14 do read (y[k]) ; {записываем массив}

s1:=0; s2:=0; {счётчики на 0}

minY:=y[1]; {присваиваем первому значению минимум ... }

for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем}

maxY:=y[1]; {присваиваем второму значению максимум ... > <}

for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем}

m:=y[s1]; {используя переменную m меняем местами элементы}

y[s1]:=y[s2];

y[s2]:=m;

writeln ('Novyi massiv: ') ;

for k:=1 to 14 do write (y[k],' ') ; {выводим новый массив}

readln

end.