Azad İsa oğlu Qurbanov, Elçin Musa oğlu Məmmədov, Aygün Seyfəddin qızı Hüseynova

type tf=file of integer; 
procedure sortpuz(name:string); 
var f:tf; 
    i,nkz:longint; 
    r1,r2:integer; 
    flag:boolean; 
begin 
  assign(f,name); 
  reset(f); 
  nkz:=filesize(f); 

---

 
384
  repeat 
    flag:=false; 
    for i:=0 to nkz-2 do 
      begin 
        seek(f,i); 
        read(f,r1,r2); 
        if r2>r1 then 
          begin 
            seek(f,i); 
            write(f,r2,r1); 
            flag:=true 
          end 
      end; 
  nkz:=nkz-1 
  until not flag; 
  close(f); 
end; 
begin 
sortpuz('c:\azad.txt') 
end. 
Proqram tam ədədlərdən ibarət faylda nizamlama  əməliyyatı aparır.  
2.18. Modullar 
Turbo Pascal-da proqramın həcminə müəyyən məhdudiyyət vardır. Belə ki, 
kompilyator yalnız o proqramları translyasiya edə bilər ki, bu əməliyyat zamanı 
maşın kodunun həcmi 64 Kbayt-dan çox olmasın. Bu səbəbdən böyük həcmli 
proqramları bir neçə proqram fraqmentlərinin - modulların toplusu şəklində 
yaratmaq lazım gəlir. 
Modul müstəqil kompilyasiya olunan proqram vahididir. 
Modulun mətni “
.pas
”  genişlənməsinə malik faylda, kompilyasiya olduqda isə o, 
“
.tpu
” genişlənməsinə malik xüsusi faylda saxlanılır. Əsas proqramdan
 uses
 işçi 
sözü vasitəsilə modulun həm mətninə və həm də onun kompilyasiya olmuş faylına 
müraciət olunur. Qeyd edək ki, modulun mətni və ya onun kompilyasiya olmuş 
faylı  əsas proqramın yerləşdiyi cari kataloqda və ya istifadəçi tərəfindən, Turbo 
Pascal proqram mühitinin