Организация ввода-вывода

Сделать таблицей в Паскаль, помогите пожалуйста
Параметр:
𝑥 = 0.01(0.01)0.1
Табулирование функций :
y=e^z
z=e^x

Чем помочь, что именно не получается? Что пробовали делать?

Кроме таблицы, ничего больше не выдает, не считает, где ошибка ?

Program tabl3;
Const
P=' ';
T=' ';
Var
  
e,y,z,x:real;
Begin{tabl3}
WriteLn(T, 'ВАР.4');
WriteLn;
WriteLn;
{Вывод заголовка таблицы}
WriteLn(T,'┌────────┬──────────┬──────────┐');
WriteLn(T,'│   x   │     y   │     z   │');
WriteLn(T,'├────────┼──────────┼──────────┤'); 
e:=2.7;
x:=0.01;
 while x>0.1 do
  begin
x:=x+0.01;
y:=exp(z); z:=exp(x);
WriteLn(T,'│',P,x:4:2,P,'│',P,y:6:3,P,'│',P,z:5:3,P,'│');
 end;
{Окончание таблицы}
WriteLn(T,'└────────┴──────────┴──────────┘')
End.{tabl3}

х изначально 0.01, а в цикле условие “пока х больше 0.1”, то есть ни разу не выполнится.

Program tabl3;
Const
P=' ';
T=' ';
Var
  i:real;
e,y,z,x:real;
Begin{tabl3}
WriteLn(T, 'ВАР.4');
WriteLn;
WriteLn;
{Вывод заголовка таблицы}
WriteLn(T,'┌────────┬──────────┬──────────┐');
WriteLn(T,'│   x   │     y   │     z   │');
WriteLn(T,'├────────┼──────────┼──────────┤'); 
e:=2.718;
x:=0.01;
 while x<=0.1 do
  begin
x:=x+0.01;
y:=exp(z); z:=exp(x);
{Вывод строки таблицы}
WriteLn(T,'│',P,x:4:2,P,' │',P,y:6:3,P,' │ ',P,z:5:3,P,' │');
 end;
{Окончание таблицы}
WriteLn(T,'└────────┴──────────┴──────────┘')
End.{tabl3}

image
почему у меня считает не до 0,1 а до 0,11
и ответ по “y” на следующей строке
т.е должно быть в первой строке (x.y.z) 0.2; 2.774.; 1.020 ? не могу понять в чем ошибка , спасибо заранее

Так тут цикл до

то есть последний раз туда войдет когда 0.1, и прибавит еще 0.01.