Что такое randomize и random ?

unit podpr;
interface
uses perem;
function f(x:real):real;
procedure Readfile (var a,b,e:real; var n,m:integer);
procedure Readfile2 (var a,b,e:real; var n,m:integer);
procedure WriteFile;
procedure Levii( a,b,e:real; n,m:integer);
implementation
function f[COLOR="Red"](x:real):real[/COLOR];
 begin
  f:=sin(0.2*sqr(x)+0.7)/(1.4+cos(0.5*x+0.2));
 end;
function fun[COLOR="#ff0000"](x:real):real[/COLOR];
 begin
  fun:=(x/2+1)*sin(x/2);
 end;

program kurs;
USES CRT;
var
   m1,i,n1,m2,n2:integer;
   Spred,e1,a1,b1,h,x,S,xb,a2,b2,e2:real;
   f1,f2,f3:text;
function f(x:real):real;
   begin
        f:=sin(0.2*sqr(x)+0.7)/(1.4+cos(0.5*x+0.2));
   end;
function fun(x:real):real;
   begin
        fun:=(x/2+1)*sin(x/2);
   end;
[COLOR="Red"]procedure Readfile (var a,b,e:real; var n,m:integer);
   begin
        assign (f1,'1.dat');
        reset (f1);
        read(f1,a,b,n,m,e);
        assign(f2,'1.res');
        rewrite(f2);
   end;
       procedure Readfile2 (var a,b,e:real; var n,m:integer);
   begin
        assign (f3,'3.dat');
        reset (f3);
        read(f3,a,b,n,m,e);
 
   end;[/COLOR]
 
procedure Vvivod_shapki_lev ;
   begin
 
        writeln(f2,'--------------------------------------------------');
        writeln(f2,'|        ','Метод левых прямоугольников             |');
        writeln(f2,'--------------------------------------------------');
        writeln(f2,'|Число отрезков','     |     ','Значение интеграла     |');
        writeln(f2,'--------------------------------------------------');
   end;
   
 
procedure Levii( a,b,e:real; n,m:integer);
   begin
        S:=0;
             repeat
                   Spred:=S;
                   h:=(b-a)/n;
                   x:=a;
                   S:=0;
                        for i:=0 to n-1 do
                                          begin
                                               S:=S+f(x);
                                               x:=x+h;
                                          end;
                   s:=s*h;
                   writeln(f2,'|   n=',n:5,'         |            S=',S:8:6,'      |');
                   writeln(f2,'--------------------------------------------------');
                   n:=m*n;
             until abs(S-Spred)<=e;
   end;
 
begin
Readfile (a1,b1,e1,n1,m1);
Vvivod_shapki_lev;
Levii (a1,b1,e1,n1,m1);
Readfile2 (a2,b2,e2,n2,m2);
Vvivod_shapki_lev;
Levii (a2,b2,e2,n2,m2);
close(f1);
close(f2);
close(f3);
end.
 
но мне сказали переделать что бы происходило считывание с одного файла!
я сделала вот так
program kurs;
USES CRT;
-------------
function f(x:real):real;
   begin
        f:=sin(0.2*sqr(x)+0.7)/(1.4+cos(0.5*x+0.2));
   end;
function fun(x:real):real;
   begin
        fun:=(x/2+1)*sin(x/2);
   end;
procedure Readfile (var a,b,e:real; var n,m:integer);
        assign (f1,'1.dat');
        reset (f1);
        readln(f1,a,b,n,m,e);
        
    
 
 
begin
----------------
Readfile(a1,b1,e1,n1,m1);
Readfile(a2,b2,e2,n2,m2);
----------------
end.

readln(f,s);
read(f,a,b,e);