Пусть в массиве содержатся результаты измерений температуры воздуха

uses crt;
const n=31;
var a:array[1..n] of integer;
    i,max,min:integer;
begin
clrscr;
for i:=1 to n do
 begin
  write('Введите температуру в ',i,' день декабря =');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln;
 
max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
 
for i:=1 to n do
begin
if a[i]=max then writeln('Наибольшая температура в ',i,' день');
end;
 
 
begin
 
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
end;
 
for i:=1 to n do
begin
if a[i]=min then writeln('Наименьшая температура в ',i,' день');
end;
end;
 
 
readln;
end.

uses crt;
const n=31;
var a:array[1..n] of integer;
    i,max,min,imx,imn,x:integer;
begin
for i:=1 to n do
 begin
  write('Введите температуру в ',i,' день декабря =');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
imx:=1;
min:=a[1];
imn:=1;
for i:=2 to n do
 begin
  if a[i]>max then
   begin
    max:=a[i];
    imx:=i;
   end;
  if a[i]<min then
   begin
    min:=a[i];
    imn:=i;
   end;
 end;
writeln('Наибольшая температура=',max,' в ',imx,' день');
writeln('Наименьшая температура=',min,' в ',imn,' день');
x:=a[imn];
a[imn]:=a[imx];
a[imx]:=x;
writeln('Обмен минимального и максимального:');
for i:=1 to n do
write(a[i]:4);
end.