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

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]
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.