Для аргумента Х, изменяющегося от -0.6 с шагом 0.05, вычислить 20 значений функции

[J@ck]

Парни вот объясните, пожалуйста, почему код не компилируется, вроде же алгоритм решения правильный.
//---------------------------------
Для аргумента Х, изменяющегося от -0.6 с шагом 0.05, вычислить 20 значений функции:


Вот как у меня получилось:

uses crt;
var
  x,y,h,e : real;
  i : integer;
begin
   clrscr;
   x := -0.6;
   h := 0.05;
   writeln('   |    x    ||     y   ');
   for i:=1 to 20 do
     begin
       y:=1/2*abs(e^x-e^-x/2+sin(x));
      WriteLn(i:2,' |  ',x:6:2,' || ',y:7:3);
      x := x + h;
    end;
ReadLn;
end.

[anGeee]

Эту строчку

y:=1/2*abs(e^x-e^-x/2+sin(x));

поменять на

y:=(1/2)*abs((exp(x)-exp(-x))/2+sin(x))

[J@ck]

anGeee very Sanks