Как сделать, чтобы пользователь вводил размер рисунка произвольно? - Free Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Program lab6;
  const
    P='   ';
    T='           ';
    R='      ';
Var
    x,y,z:real;
    i:integer;
Begin
  WriteLn('на экран');
  WriteLn;
  WriteLn('Ввод исходных данных');
  WriteLn('Таблица результатов');
  WriteLn;
  WriteLn(T,'--------------T--------------T--------------¬');
  WriteLn(T,'¦_____X_______¦______Y_______¦_______Z______¦');
  WriteLn(T,'¦             ¦              ¦              ¦');
  x:=1;
  while x<11 do
    begin
      y:=arctan(x);
      z:=1+sqrt(x);
      WriteLn(T,'¦',P,x:4:1,R,'¦',P,y:4:6,P,'¦',P,z:5:6,P,'¦');
      x:=x+1;
    end;
  WriteLn(T,'¦_____________¦______________¦______________¦');
 Writeln;
 for i:=1 to 5 do
   begin
   WriteLn(T,'' : (i-1),i,'' : (5-i),i);
   end;
   Write(T);
 for i:=1 to 6 do
 begin
 Write(i);
 end;
 ReadLn;
End

нечего не поменялось только числа снизу записываються а нужно что бы размер нижнего рисунка менялся

Решение задачи: «Как сделать, чтобы пользователь вводил размер рисунка произвольно?»

Листинг программы

 n:=9;
 for i:=1 to n-1 do
   begin
   WriteLn(T,'' : (i-1),i,'' : (n-1-i),i);
   end;
   Write(T);
 for i:=1 to n do
 begin
 Write(i);
 end;

Объяснение кода листинга программы

Программа начинается с объявления переменной n и присваивания ей значения 9.
Затем используется цикл for для вывода на экран сетки размером 9x9.
В каждой ячейке сетки выводится значение номера строки и столбца (начиная с 0).
После вывода сетки выводится значение переменной n.
Затем используется цикл for для вывода на экран чисел от 1 до 9.