Обработка структурированных типов данных

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.

Ya:=a[MinY];
a[MinY]:=a[MaxY];
a[MaxY]:=Ya;