Ordinamento per selezione

program OrdinamentoPerSelezione;

{$APPTYPE CONSOLE}

var
  a: array[1..100] of Integer;
  n: Integer;

procedure Legge;
var
  i: Integer;
begin
  for i:=1 to n do
  begin
    Write('a[', i, ']? '); ReadLn(a[i]);
  end;
end;

procedure Scrive;
var
  i: Integer;
begin
  for i:=1 to n do
    WriteLn('a[', i, ']= ', a[i]);
end;

procedure Scambia(var x, y: Integer);
var t: Integer;
begin
  t:=x; x:=y; y:=t;
end;

procedure Ordina;
var
  i, j: Integer;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j] then
        Scambia(a[i], a[j]);
end;

begin
  Write('Quanti elementi? '); ReadLn(n);
  Legge;
  Ordina;
  WriteLn('Array ordinato');
  Scrive;
  ReadLn;
end.