ввод таблицы

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;var f:real);
var x,dx,y,dy:real;
    n:integer;
begin
Zagl(k,w,c);
dx:=0.1;
dy:=0.2;
n:=0;
x:=-dx;
while x<1 do
 begin
  x:=x+dx;
  y:=-dy;
  while y<1 do
   begin
    y:=y+dy;
    f:=x+exp(ln(3+y*y)/3);
    writeln(#186,x:w-1:1,' ',#179,y:w-1:1,' ',#179,f:w-1:3,' ',#186);
    n:=n+1;
    if n mod 18=0 then
     begin
      Linia(k,w);
      readln;
      clrscr;
      Zagl(k,w,c);
     end
    else if (x>=1)and(y>=1) then Linia(k,w);
   end;
 end;
end;
var i,k,w:byte;
    m:mas;
    f:real;
begin
clrscr;
write('Количество колонок=');
readln(k);
write('Ширина колонок=');
readln(w);
for i:=1 to k do
 begin
  write('Название колонки ',i,' = ');
  readln(m[i]);
 end;
clrscr;
Tabul(k,w,m,f);
readln
end.