Сортировка максимальных и минимальных массивов

Question

Помогите пожалуйста, задачу начал, но не могу закончить, и то не факт, что правильно начал.. . 
 
Program Pr1; 
uses crt; 
var m: array[1..10] of integer; 
i: integer; 
Begin 
for i:=1 to 10 do 
readln (m); 
for i:=1 to 10 do 
min:=(m); 
for i:=1 to 10 do 
begin 
if min > m then 
min:=m; 
end; 
 
Вот тут я закончил....

Анастасия Голубева · Accepted Answer

не так немного.. . 
что за язык это? паскаль чтоли? ? 
ar m: array[1..10] of integer; 
i: integer; 
Begin 
for i:=1 to 10 do 
 begin 
 readln (m [ i ] ); 
 end; 
 min:=(m [ 1 ] ); 
for i:=1 to 10 do 
 begin 
 if min > m [ i ] then 
 min:=m; 
end; 
readln; end; 
так мы найдём только один минимальный элемент 
оставляем его на 1 месте и продолжаем сравнивать все остальные 
это метод пузырька самый медленный 
ar m: array[1..10] of integer; 
j,i: integer; 
Begin 
for i:=1 to 10 do 
 begin 
 readln (m [ i ] ); 
 end; 
 min:=(m [ 1 ] ); 
 for j:=1 to 10 do 
 begin 
 for i:=j to 10 do 
 begin 
 if min > m [ i ] then 
begin 
 min:=m [ i ]; 
m [ i ] := m [ j ]; 
m [ j ] := min ; 
end 
 end; 
 end 
 readln; 
end;