Разбить на подпрограммы

program rekk;
 
procedure Table_begin;
begin
  writeln(' ----------------------------------------------------------------------------------');
  writeln(' ¦    №   ¦         X         ¦       f(x)       ¦      Номер члена ряда ¦');
  writeln(' ----------------------------------------------------------------------------------');
end;
 
procedure Table_end;
begin
  writeln(' ----------------------------------------------------------------------------------');
end;
 
var
  K, n: integer;
  A, B, H, E, X, y, f: real;
 
begin
 
  writeln('Введите границы интервала; точность E');
  writeln('Шаг изменения аргумента');
  writeln;
    begin
      writeln('Начало интервала A: ');
      readln(A);
      writeln('Конец интервала B: ');
      readln(B);
      writeln('Точность E: ');
      readln(E);
      writeln('Шаг H: ');
      readln(H);
    end;
  writeln('A:', A:1:5, ' B:', B:1:5, ' H:', H:1:5, ' E:', E:1:5);
  writeln;
  X := A;
  n := 0;
  Table_begin;
  repeat
    k := 0;
    y := x;
    f := 0;
    inc(n);
    repeat
      inc(k);
      y := -(x*(2*k-1))/(2*k)*sqr(2*k+1);
      f := f + y;
    until (abs(y) < E);
    writeln(' ¦', n:5, '   ¦', X:20:3, '  ¦ ', f:16:5, '  ¦ ', k:7, '                ¦');
    X := X + H;
  until not (X < B);
  Table_end;
end.