şimdi yazdım al bakalım küçük ten büyüğe sıralama ;

uses crt;
var i,j,n,ara_deg:integer;
sayi:array[1..50] of integer;
begin
clrscr;
writeln;
write('kac sayi siralanmasini istiyorsunuz?(max:50)');
readln;
for i:=1 to n do
begin
write('sayi[',i,']:');
readln(sayi[i]);
end;
writeln('Girilen Sayilar');
writeln('_______________');
for i:=1 to n do write(sayi[i],' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if sayi[j]<sayi[i] then
begin
ara_deg:=sayi[j];
sayi[j]:=sayi[i];
sayi[i]:=ara_deg;
end;
writeln;
writeln('Kucukten Buyuge Siralanmis Sayilar');
writeln('__________________');
writeln;
for i:=1 to n do write(sayi[i],' ');
repeat until keypressed;
end.

:P

zmanım oldukça bu başlık altında yazarım yanlış varsa bilgilendirin