Таблица умножения и сложения натуральных чисел в десятичной системе счисления

uses Crt;
 
var CellWidth : byte;
var CellHeight : byte;
var ColCount : byte;
var RowCount : byte;
var Cells : array[0..10,1..10] of string;
 
procedure WriteCaption;
var i,c:integer;
begin
     write(' ',#201);
     for c:=1 to ColCount-1 do
         begin
              for i:=1 to CellWidth do write(#205);
              write(#209);
         end;
     for i:=1 to CellWidth do write(#205);
     writeln(#187);
     write(' ',#186);
     for c:=1 to ColCount do
         begin
              for i:=1 to (CellWidth-length(cells[0,c])) div 2 do write(' ');
              write(cells[0,c]);
              for i:=1 to (CellWidth-length(cells[0,c])+1) div 2 do write(' ');
              if c<ColCount then write(#179) else writeln(#186);
         end;
end;
 
procedure WriteLine(index:byte);
var c,i:byte;
begin
     write(' ',#199);
     for c:=1 to ColCount do
         begin
              for i:=1 to CellWidth do write(#196);
              if c<ColCount then write(#197) else writeln(#182);
         end;
     write(' ',#186);
     for c:=1 to ColCount do
         begin
              for i:=1 to (CellWidth-length(cells[index,c])) div 2 do write(' ');
              write(cells[index,c]);
              for i:=1 to (CellWidth-length(cells[index,c])+1) div 2 do write(' ');
              if c<ColCount then write(#179) else writeln(#186);
         end;
end;
 
procedure WriteConclusion;
var i,c:byte;
begin
     write(' ',#200);
     for c:=1 to ColCount do
         begin
              for i:=1 to CellWidth do write(#205);
              if c<ColCount then write(#207) else write(#188);
         end;
end;
 
function IntToStr(x:integer):string;
var r:string;
begin
     r:='';
     while x<>0 do
     begin
          r:=chr((x mod 10)+48)+r;
          x:=x div 10;
     end;
     IntToStr:=r;
end;
 
var g,h:integer;
 
procedure MultTable;
begin
for g:=1 to 10 do cells[0,g]:=Inttostr(g);
for h:=1 to 10 do for g:=1 to 10 do cells[h,g]:=IntToStr(h*g);
end;
procedure SumTable;
begin
for g:=1 to 10 do cells[0,g]:=Inttostr(g);
for h:=1 to 10 do for g:=1 to 10 do cells[h,g]:=IntToStr(h+g);
end;
 
begin
clrscr;
CellWidth:=6;
CellHeight:=1;
ColCount:=10;
RowCount:=10;
MultTable;
writeln;
WriteCaption;
for g:=2 to 10 do
    WriteLine(g);
WriteConclusion;
writeln;
SumTable;
WriteCaption;
for g:=1 to 10 do
    WriteLine(g);
WriteConclusion;
end.