пожалуйста скиньте решения...

пожалуйста скиньте решения ,кто знает, сортировки массива в pascal abc за 1 проход помассиву

 

procedure sort(n,m:integer;b:ar);
var i,j,tmp,k:integer;
begin
writeln;
k:=n*m;
for i:=1to k dobegin
 for j:=1to k dobegin
if(b>b[j])thenbegin
tmp:=b;
b:=b[j];
b[j]:=tmp;
end;
end;
end;
write('Отсортированный массив:');
for i:=1to k do
write(b:3);
end;