Составить программу обмена местами максимума и минимума в массиве

Var a:array[1..1000] of integer;
N,max,max1,min,min1,i: integer;
begin
writeln(Введите количество элементов); readln(N);
min:=32768; max:=-32768;
for i:=1 to N do begin
 readln(a[i]);
 if a[i]>max then begin max:=a[i]; max1:=i; end;
 if a[i]end;
if (max<>-32769)and(min<>32768) then begin
 i:=a[max1]; a[max1]:=min; a[min1]:=i; end
else writeln(Обмен невозможен); 
readln
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.