Нужна помощь с задачей по программированию. Delphi 10 Berlin. (Проверить, правильно ли написан код и указать на ошибки)

program Projectz2;
Var x, e:integer; sinx, cosx, tgx, y1, y2, y3:real;
const P=3.1415;
Uses
SysUtils, math;

{$APPTYPE CONSOLE}

begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln ('sinx, x');
Readln (sinx, x);
y1:=sqr(2*sin(x)+1)/7*P+x;
if sin(x)+x>-0.5 then begin
Writeln('y1');
Readln(y1);
end;
y2:=(sqr(cos))*cos(x)-sin*(cos(x)/3);
if -0.5 <= cos(x)+x <= 0.001 then begin
Writeln('y2');
Readln(y2);
end;
y3:=lg((sin(x)/cos(x))+x)-(Power(x,e))/3.5*x;
if ((sin(x)/cos(x)+x))> 0.001 then begin
Writeln('y3');
Readln(y3);
end;
case i of
1 : Writeln ('y1= ',y1);
2 : Writeln ('y2= ',y2);
3 : Writeln ('y3= ',y3);
end;

Readln;
end.