Массивы

function MinY: integer;
var
  y: integer;
begin
  result:=1;
  for y:=1 to 10 do
  if a[result]>a[y] then
  result:=y;
end;
function MaxY: integer;
var
  y: integer;
begin
  result:=1;
  for y:=1 to 10 do
  if a[result]<a[y] then
  result:=y;
end;
procedure Vipolnit;
var
  Ya: integer;
begin
  randomize;
  for Ya:=1 to 10 do
  a[Ya]:=random(100);
  Ya:=a[MinY];
  a[MinY]:=a[MaxY];
  a[MaxY]:=a[MinY];
end;
procedure Prosmotr;
var
  Ya: integer;
begin
  Ya:=a[MinY];
  a[MinY]:=a[MaxY];
  a[MaxY]:=a[MinY];
  showmessage('a[MinY]='+inttostr(a[MinY])+', a[MaxY]='+inttostr(a[MaxY]));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Vipolnit;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Prosmotr;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
end.

const n=10;
type mas=array[1..n] of Integer;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure Massiv(var a:mas);
var y:Integer;
begin
 Randomize;
 for y:=1 to n do
 a[y]:=random(100);
end;
procedure Vyvod(a:mas;st:TStringGrid);
var y:Integer;
begin
  for y:=1 to n do
  st.Cells[y-1,0]:=IntToStr(a[y])
end;
function Min(a:mas): integer;
var y:integer;
begin
  result:=1;
  for y:=2 to n do
  if a[result]>a[y] then
  result:=y;
end;
function Max(a:mas): integer;
var y:integer;
begin
  result:=1;
  for y:=2 to n do
  if a[result]<a[y] then
  result:=y;
end;
procedure Obmen(var a:mas;imn,imx:integer);
var y:integer;
begin
y:=a[imn];
a[imn]:=a[imx];
a[imx]:=y;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
    imn,imx:Integer;
begin
Massiv(a);
Vyvod(a,StringGrid1);
imn:=Min(a);
imx:=Max(a);
Label2.Caption:='Минимальный элемент   a['+inttostr(imn)+']='+inttostr(a[imn])
+#13#10+'Максимальный элемент a['+inttostr(imx)+']='+inttostr(a[imx]);
Obmen(a,imn,imx);
Vyvod(a,StringGrid2);
end;