Переделать программу с процедурами и функциями и с вводом и выводом в файл

program kkr2;
uses crt;
  var
     a,  b,  h, e : real;
         a1, f, x :real;
     n,  k , kn   :integer;
BEGIN
clrscr;
 Repeat
  Writeln('Добро пожаловать в программу для нахождения суммы ряда чисел');
  writeln;
  write('Введите начало интервала: ');
  readln (a);
  write('Введите конец интервала: ');
  readln (b);
  write('Введите шаг: ');
  readln (h);
  write('Введите точность вычисления: ');
  Readln (e);
  writeln;
  writeln('Ответ: ');
 
 Until (a<b) and (e>0) and (h>0);
 
 x:=a;
 n:=1;
 Writeln;
 Writeln('N':4,'x':8,'f(x)':8,'en':8);
 
 repeat
 
  f:=pi*pi/3;
  k:=0;
  kn:=0;
  {рекурентно не получиться
  a1:=a0*(cos((k+1)*x)/cos(k*x)*k*k/((k+1)*(k+1))
  нормально не делиться
  (k+1)^2=k^2+2*k+1}
  repeat
    kn:=kn+2*k+1;
    k:=k+1;
    a1:=4*cos(k*x)/kn;
    f:=f+a1;
  until abs(a1)<e;
 
  Writeln(n:4,x:8:3,f:8:3,abs(a1):8:3);
 
  n:=n+1;
  x:=x+h;
 until x>b;
 writeln;
 Writeln('нажмите Enter для выхода...');
 Readln;
END.