گفت: من را دوست داری یا زندگی را گفتم: زندگی را؛
قهر کرد و رفت. او هرگز نفهیمد که همه زندگیم بود.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.