Ето ти едно решение. Не е идеално,
но ще видиш идеята.

program Sort;
var
masiv:array[1..100] of integer;
Broj,i,razmeni:integer;
FlagImaLiSort:boolean;

begin
Write('Broj:');Readln(Broj);

for i:=1 to Broj do
begin
Write('Input ',i,' number ');Readln(masiv[ i ]);
end;

FlagImaLiSort:=true;
while FlagImaLiSort do
begin
FlagImaLiSort:=false;
for i:=1 to Broj-1 do
if masiv [ i ] > masiv [ i+1 ] then
begin
razmeni:=masiv[ i ];
masiv[ i ]:=masiv[ i+1 ];
masiv[ i+1 ]:=razmeni;
FlagImaLiSort:=true;
end;
end;

for i:=1 to Broj do Writeln(masiv [ i ] );

end.