Табулирование функции с результатами оформленными в виде таблицы

uses crt;
type mas=array[1..10] of char;
procedure Zagl(var k,w:byte;c:mas);
var i,j:byte;
begin
write(#201);
for i:=1 to k do
 begin
  for j:=1 to w do write(#205);
  if i<k then write(#209)else write(#187);
 end;
writeln;
write(#186);
for i:=1 to k do
 begin
  for j:=1 to w do write(' ');
  if i<k then write(#179)else write(#186);
 end;
writeln;
gotoXY(1,whereY-1);
for i:=1 to k do
 begin
  gotoXY(w*(i-1)+w div 2+i+1,whereY);
  write(c[i]);
 end;
gotoXY(1,whereY+1);
write(#199);
for i:=1 to k do
 begin
  for j:=1 to w do write(#196);
  if i<k then write(#179)else write(#182);
 end;
writeln;
end;
procedure Linia(k,w:byte);
var i,j:byte;
begin
write(#200);
for i:=1 to k do
 begin
  for j:=1 to w do write(#205);
  if i<k then write(#207)else write(#188);
 end;
writeln;
end;
procedure Tabul(k,w:byte;c:mas;a,b,x:real;var Z:real);
var y,dy:real;
    n:integer;
begin
Zagl(k,w,c);
dy:=b/10;
n:=0;
y:=a-b;
while y<a+b do
  begin
 
    Z:=(sqrt(a)-x*(a+y)-b*sqr(x))/(1+sqr(cos(x))+y);
    writeln(#186,y:w-1:2,' ',#179,Z:w-1:3,' ',#186);
    n:=n+1;
    if n mod 18=0 then
     begin
      Linia(k,w);
      readln;
      clrscr;
      Zagl(k,w,c);
     end;
   y:=y+dy;
  end;
 Linia(k,w);
end;
var i,k,w:byte;
    m:mas;
    Z:real;
begin
clrscr;
repeat
writeln('Введите данные для таблицы:');
repeat
writeln('Количество колонок=2');
readln(k);
until k=2;
repeat
writeln('Ширина колонок не менее 8 =');
readln(w);
until w>=8;
if k*w>77 then writeln('Уменьшите ширину колонок.');
until k*w<=77;
writeln('Введите названия колонок (желательно x,Z)');
for i:=1 to k do
 begin
  write('Название колонки ',i,' = ');
  readln(m[i]);
 end;
clrscr;
Tabul(k,w,m,0.16,2.85,0.47,Z);
readln
end.