program sort;
const size=100;
type vector=array [1..size] of real;

procedure GetArray (var n:integer; var a:vector);
var i:integer;
begin
repeat
writeln ('Введите размерность массива:');
{$I-}readln (n); {$I+}
if (IoResult<>0) or (n<2) or (n>size)
then writeln
('Размерность должна быть от 2 до ',size);
until (n>1) and (n for i:=1 to n do begin
write (i,' элемент=');
readln (a[i]);
end;
end;

procedure PutArray (n:integer; var a:vector);
var i:integer;
begin
writeln;
for i:=1 to n do writeln (a[i]:10:3);
end;

procedure sortArray (n:integer; var a:vector);
var i,j:integer; buf:real;
begin
for i:=1 to n do
for j:=i+1 to n do if a[i]>a[j] then begin
buf:=a[i]; a[i]:=a[j]; a[j]:=buf;
end;
end;

var a:vector; n:integer;
begin
GetArray (n,a);
sortArray (n,a);
write ('Отсортированный массив:');
PutArray (n,a);
end.

---