Ошибка при выполнии

program Laba_4_2;
const t=1e-8;
var x,xn,xk,h,c:real;
BEGIN
 writeln('laba nomer 4 Leonenko victor MA-09');
  write('xn,xk,h=');
  readln(xn,xk,h);
  writeln x<x+t do
  begin
   if abs (x-2)<t or ((x>3-t) and x<5+t) then
    writeln('x=',x:7:3,'y ne syshestvuet po opredeleniu')
    else
     begin
      if x<3-t then
       begin
        y1=sin*(x)*sin(x)+2*x*x*x*x
        writeln (x=;x:7:3;y=:y:12:6)
        end
      else if x<5-t then
      begin
      c:sqrt(1-x)/sin 3x
       if abs(a)>t then
    begin
    y2=sqr(cos)/(1-(x*x))
    writeln('x='x:7:3; y=:y:12:6)
    end
     else
      else writeln ('x='x:7:3; y ne sushestvuet')
       end
     else
      if x<5-t
       begin
       y:=t(x*ln(2));
       write'x='x=:7:3; y3=:12:6)
      end
     else begin
      if c>-t then
       begin
       y=sqr(sin)*(x-1)
       else y=0
       writeln('x>,x:7:3; y4:=:y:12:6)
      end
      else write ('x=:x:7:3; y4 ne sushestvuet ODZ)
     end;
   x:=x+h
  end
end.

program Laba_4_2;
uses crt;
const t=1e-8;
var x,xn,xk,h,c,y:real;
BEGIN
clrscr;
 writeln('laba nomer 4 Leonenko victor MA-09');
  write('xn,xk,h=');
  readln(xn,xk,h);
 while x<x+t do
  begin
   if (abs(x-2)<t) or (x>3-t) and (x<5+t) then
    writeln('x=',x:7:3,'y ne syshestvuet po opredeleniu')
   else
    begin
     if x<3-t then
      begin
       y:=sin(x)*sin(x)+2*x*x*x*x;
       writeln ('x=',x:7:3,' y=',y:12:6);
      end
     else
      if x<5-t then
       begin
        c:=sqrt(1-x)/sin(3*x);
        if abs(c)>t then
         begin
          y:=sqr(cos(x))/(1-(x*x));
          writeln('x=',x:7:3,' y=',y:12:6);
         end
        else writeln ('x=',x:7:3,' y ne sushestvuet')
       end
      else
       if x<5-t then
        begin
         y:=t*(x*ln(2));
         write('x=',x:7:3,' y3=',y:12:6)
        end
       else
        begin
         if c>-t then
          y:=sqr(sin(x))*(x-1)
         else
          y:=0;
         writeln('x>',x:7:3,' y4=',y:12:6);
        end;
      {else write ('x=',x:7:3,'  y4 ne sushestvuet ODZ');}
     end;
   x:=x+h;
  end;
  readln;
end.