به زودی برنامه خود پاسکال چارت کلی پاسکال در این وبلاگ....

گفت: من را دوست داری یا  زندگی را گفتم: زندگی را؛
                                                 
قهر کرد و رفت. او هرگز نفهیمد که همه زندگیم بود.M

---

   خب اینم مرتب سازی یا همون SORT  که خواسته بودید:                                                
       PROGRAM example (inpf,outf);
       TYPE
         smallint  = -32768 .. 32767;
          sort_rec  = RECORD
                       position:  smallint;
                       length:    smallint;
                       seq_type:  smallint;
                     END;
           char_seq  = RECORD
                     array_code:smallint;
                     language:  smallint;
                   END;
          file_arr  = RECORD
                      num_file:  smallint;
                       num_zero:  smallint;
                     END;
        file_rec  = PACKED ARRAY [1..72] of CHAR;
         file_num  = FILE of file_rec;
   VAR
  numkeys: smallint;
        reclen:  smallint;
        keys:    sort_rec;
      cseq:    char_seq;
        inp:     file_arr;
         out:     file_arr;
      inpf:    file_num;
        outf:    file_num;
      PROCEDURE sortinit;   INTRINSIC;
      PROCEDURE sortend;    INTRINSIC;
   PROCEDURE main;
   BEGIN
   numkeys := 1;
   reclen  :=72;
   WITH keys DO
   BEGIN
   position := 1;
   length   := 4;
   seq_type := 9;
   END;
   WITH cseq DO
   BEGIN
   array_code:=1;
   language:= 12;
   END;
   WITH inp  DO
   BEGIN
   RESET (inpf);
   num_file := FNUM (inpf);
   num_zero := 0;
   END;
 WITH out  DO
   BEGIN
   REWRITE (outf);
   num_file := FNUM (outf);
   num_zero := 0;
   END;
      sortinit (inp,out,,reclen,,numkeys,keys,,,,,,,,cseq);
   sortend;
      END;
      BEGIN
        main;
     END.