найти синтаксические ошибку(pascal)

[xxxartikxxx]

Помогите найти синтаксическую ошибку
код:

program prog1;
 Uses CRT;
 var
 y,s,x,sinx,b,d,a,c,x1,x2:real;
 vvod:integer;
 begin
 ClrScr;
 writeln;
 writeln('Function s=x^y and sin(x)');
 writeln;
 writeln;
 write('Input x=');
 read(x);
 write('Input y=');
 read(y);
 s:=(exp(y*ln(x)));
 sinx:=sin(x);
 writeln;
 write('s=',s:10:3,' sin(x)=',sinx:10:5);
 writeln;
 while vvod<>1 do
 begin
 write('Input a=');
 read(a);
 writeln;
 write('Input b=');
 read(b);
 writeln;
 write('Input c=');
 read(c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else
Begin
X:=-C/B;
Writeln('X=',X:8:3);
End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
 writeln('1 - exit, 2 - repeat');
 readln(vvod);
 end;
 end.

[Luuzuk]

двух "end" после бегинов не хватает
расставляй отступы, не будешь потом теряться в нагромождениях кода