利用文件实现Free Pascal中的简单排序功能

此程序主要是验证文件功能的读写功能,总结到的东西有:①文件无论是读还是写,都要先建立链接关系才可以进行;②读与写不能同时进行,必须分开操作,这也可以理解,在实际鼠标操作时也是如此的!③读写后必须用close(文件变量名)关掉读写的文件;④学会了如何生成随机整数,并且学会了如何节省验证时间不再从键盘输入.

 program Test07;
 var
   f:text;
   i,a,b,c,max:integer;
 begin
   assign(f,'test.txt');
   rewrite(f);
   randomize;
   //生成三个随机数
   for i:= to  do
     begin
       writeln(f,random());  //生成0-以内的整数
     end;
   close(f);
   //读取生成的随机数.
   assign(f,'test.txt');
   reset(f);
   read(f,a,b,c);//直接将f中的所有随机数(个)读到变量中.
   writeln(a,b,c);
   readln;
   close(f);
   //对读取的随机数进行排序
   if a>b then
     begin
       max:=a;
     end
   else
     begin
       max:=b;
     end;
   if c>max then
     begin
       max:=c;
     end;
   writeln(utf8decode('最大值为'),max);
   readln;
 end.
             

现在的问题是:如果是针对更多的数据进行查找最大值,那代码的行数会远远超过这些,应该如何实现?是下一步需要解决的问题.还有,针对文件的read语句能否直接给数组赋值?如果可以的话,在提取大数据量的最大值或者排序问题应该会解决的比较方便!!