Неправильно расставлены операторные скобки

Program L2V4Z21;
Uses Crt;          
Var                
   a,b,c,d,y     :real;
   x,v,t         :real;
BEGIN
  ClrScr;
  write('a='); readln(a);
  write('b='); readln(b);
  write('c='); readln(c);
  write('d='); readln(d);
  write('y='); readln(y);
  writeln('a=',a:8:3,'b=',b:8:3,'c=',c:8:3,'d=',d:5:3,'y=',y:5:3);
  if ln(y)>0 then
     Begin
         x:=3*sqr(y)+ln(y);
         write('x=',x:5:3);
         if a*x+b*y<-1 then
          V:=x+y
          else if a*x+b*y>5 then
          V:=1-x
            else  V:=a*x+b*y;
        write('V=',V:5:3);
        if ln(v)>0 then
      Begin
         t:=exp(ln(v)*(1/3));
         writeln('x=',x:5:3,'v=',v:5:3,'t=',t:5:3);
         end else writeln(' t - net reshenii');
          end
  else
     writeln ('x - error, z - error, y - error');
  readkey;             
END.

uses crt;
var a,b,c,d,v,t,x,y,z:real;
begin
clrscr;
a:=3.4;
b:=2.8;
c:=1.2;
d:=4.1;
y:=7;
writeln('a=',a:0:1,' b=',b:0:1,' c=',c:0:1,' d=',d:0:1,' y=',y:0:1);
x:=3*y*y+ln(y);
writeln('x=',x:0:1);
z:=a*x+b*y;
if (z>=-1)and(z<=5) then v:=z
else if z<-1 then v:=x+y
else v:=1-x;
if v=0 then t:=0
else if v>0 then t:=exp(ln(v)/3)
else t:=-exp(ln(-v)/3);
writeln('V=',v:0:1,' t=',t:0:1);
readln
end.