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

var
M:array[1..10]of integer;
i,n,a,max,min,minI,maxI:integer;
begin
write('n=');read(n);
read(m[1]);
min:=m[1];min:=m[1]; minI:=1; maxI:=1;
for i:=2 to n do
  begin
    read(m[i]);
    if m[i]>max then begin max:=m[i]; maxI:=i;end;
    if m[i]<=min then begin min:=m[i]; minI:=i;end;
  end;
a:=m[minI];
m[minI]:=m[maxI];
m[maxI]:=a;
write('a=');read(a);
max:=0;
writeln('zadanie 1:');
for i:=1 to n do
  begin
    write(m[i]:4);if m[i]>a then max:=max+m[i];
  end;
writeln;
writeln('zadanie 2:');
writeln('summa=',max);
min:=0;
for i:=1 to n do
if m[i]mod 2=0 then begin min:=m[i]; break; end;
writeln('zadanie 3:');
for i:=1 to n do write(m[i]+min:4);
end.

var
M:array[1..10]of integer;
i,n,a,max,min,minI,maxI:integer;
begin
write('n=');read(n);
read(m[1]);
min:=m[1];min:=m[1]; minI:=1; maxI:=1;
for i:=2 to n do
  begin
    read(m[i]);
    if m[i]>max then begin max:=m[i]; maxI:=i;end;
    if m[i]<=min then begin min:=m[i]; minI:=i;end;
  end;
a:=m[minI];
m[minI]:=m[maxI];
m[maxI]:=a;
writeln('zadanie 1:');
for i:=1 to n do
write(m[i]:2);
end.
 
var
m:array[1..10]of integer;
i,n,a,s:integer;
begin
write('n=,a=');read(n,a);
s:=0;
writeln('vvedite :',n,' chisel');
for i:=1 to n do
  begin
    read(m[i]);if m[i]>a then s:=s+m[i];
  end;
write('summa=',s);
end.
 
 
 
var
i,n,a:integer;
m:array[1..10]of integer;
begin
a:=0;
write('n=');read(n);
for i:=1 to n do read(m[i]);
for i:=1 to n do
if m[i]mod 2=0 then begin a:=m[i]; break; end;
writeln('zadanie 3:');
for i:=1 to n do write(m[i]+a:4);
end.