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

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

program Test07;
var
  f:text;
  i,a,b,c,max:integer;
begin
  assign(f,'test.txt');
  rewrite(f);
  randomize;
  //生成三个随机数
  for i:=1 to 3 do
    begin
      writeln(f,random(100));  //生成0-100以内的整数
    end;
  close(f);
  //读取生成的随机数.
  assign(f,'test.txt');
  reset(f);
  read(f,a,b,c);//直接将f中的所有随机数(3个)读到变量中.
  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语句能否直接给数组赋值?如果可以的话,在提取大数据量的最大值或者排序问题应该会解决的比较方便!!