Ввод и вывод данных через текстовый файл

Unit RGZ;
Interface
Type
vector = array [1..20] of real;
function Myfunc(a, b, x: real): real;
procedure MyProce(z: vector; var r: vector; var j, n: integer);
 
Implementation
Function myfunc(a, b, x: real): real;
         begin if x<b then myfunc:=sin(x)
               else myfunc:= cos(x-a);
         end;
Procedure MyProce(z: vector; var r: vector; var j, n: integer);
          var i: integer;
         begin j:= 0;
         for i := 1 to n do
         if z[i] > 0 then
            begin
            j:=j+1;
            r[j] := z[i];
            end;
         end;
end.

Program UnitRGZ;
uses rgz;
var z, r : vector;
    i, j, n : integer;
    a, b, x, y : real;
begin 
begin write ('a = '); readln(a);
      write ('b = '); readln(b);
      write ('x = '); readln(x);
      MyFunc(a, b, x);
      writeln ('x = ', myfunc(a,b,x):5:4);
end; 
  writeln ('      Massiv Z');
      write(' n = '); readln(n);
      for i:=1 to n do
      begin
      write(' Z[', i, ']= ');
      readln(Z[i]);
      end;
      MyProce (z, r, j, n);
     if j>0 then begin
     writeln ('      Massiv R');
     for i:=1 to j do
     writeln (' R[',i,'] = ', r[i]:3:2); end
     else writeln ('      Massiv R: no needed elements');
end.

Program UnitRGZ;
uses rgz;
var z, r : vector;
    i, j, n : integer;
    a, b, x, y : real;
    f:text;
begin
assign(f,'input.txt');
reset(f);
read(f,a,b,x);
writeln ('Rezult functii= ', myfunc(a,b,x):0:4);
writeln ('      Massiv Z');
read(f,n);
for i:=1 to n do
 begin
  read(f,z[i]);
  write(z[i]:5:2);
 end;
close(f);
writeln;
MyProce (z, r, j, n);
if j>0 then
 begin
  writeln ('      Massiv R');
  for i:=1 to j do
  write(r[i]:5:2);
 end
else writeln ('      Massiv R: no needed elements');
assign(f,'output.txt');
rewrite(f);
writeln(f,'Rezult functii= ', myfunc(a,b,x):0:4);
if j>0 then
 begin
  writeln (f,'      Massiv R');
  for i:=1 to j do
  write(f,r[i]:5:2);
 end
else writeln (f,'      Massiv R: no needed elements');
close(f);
end.