Уравнение (pascal, Delphi)

[HouK]

Есть уравнение
y:=sqr(x)+a/(x-2)
к этому уравнению есть условия
1) a:=sqr(x)*x (решение идет по этому условию если x>=-2 и x<=0)
2) a:=-abs(x-1) (по этому x>=0 и x<=2)
3) a:=(x+5)/(x-3) (по этому x>2)
ко всему этому есть ограничения
1) x<>2
2) x<>3
3) x>=-2
Да в условии есть не соответствие как при х=2 может выполняться второе решение если уравнение не имеет смысла в данном случае, не знаю, но препод запретил менять уравнение.
Но проблема не в этом вроде бы все написал, но в конце есть проблема, не могу вывести отдельно сообщение об ошибке если не выполняются первые три ограничения.
Вот код программы.

uses
SysUtils,
Convector in '..\..\convector\Convector.pas'; (опережая вопросы это конвектор служит для руссификации слов)
var
a,x,y:real;
begin
Write(Rus('Введите x='));
Readln(x);
if (x<>2) and (x<>3) and (x>=-2) then
begin
if (x>=-2) and (x<=0) then
Writeln(Rus('Решение идет по первой ветке'));
a:=sqr(x)*x;
Write('a=');
Writeln(a:5:2);
end;
begin
if (x>=0) and (x<=2) then
Writeln(Rus('Решение идет по второй ветке'));
a:=-abs(x-1);
Write('a=');
Writeln(a:5:2);
end;
begin
if (x>2) then
Writeln(Rus('Решение идет по третьей ветке'));
a:=(x+5)/(x-3);
Write('a=');
Writeln(a:5:2);
end;
begin
y:=sqr(x)+a/(x-2);
Write('y=');
Writeln(y:5:2);
end
else
Writeln(Rus('Введеные данные не соответствуют условию задачи'));
readln;
end.

Ошибка выдаеться на else ('end' expected but 'else' found)
Помогите разобраться пожалуйста.

[ОДИНОЧЕСТВО В СЕТИ]

end;
begin

а зачем вы после каждого end begin пишите???

[HouK]

я каждую ветвь решения заключил в begin end чтобы после if было возможным вписать несколько операторов. Вывод результата промежуточного решения, и вывод номера ветки по которой идет решение.
Пробывал ставить сначало
if условие then
begin
.....
end
но в конце опять ругаеться на else

[ОДИНОЧЕСТВО В СЕТИ]

var
a,x,y:real;
begin
Write(Rus('Введите x='));
Readln(x);
if (x<>2) and (x<>3) and (x>=-2) then
begin
if (x>=-2) and (x<=0) then begin
Writeln(Rus('Решение идет по первой ветке'));
a:=sqr(x)*x;
Write('a=');
Writeln(a:5:2);
end else
if (x>=0) and (x<=2) then begin
Writeln(Rus('Решение идет по второй ветке'));
a:=-abs(x-1);
Write('a=');
Writeln(a:5:2);
end else
if (x>2) then begin
Writeln(Rus('Решение идет по третьей ветке'));
a:=(x+5)/(x-3);
Write('a=');
Writeln(a:5:2);
end;
y:=sqr(x)+a/(x-2);
Write('y=');
Writeln(y:5:2);
end
else
Writeln(Rus('Введеные данные не соответствуют условию задачи'));
readln;
end.

запусти-ка вот это

[HouK]

В таком варианте пишет ошибку на тот же else только теперь требует чтобы на end была точка, покрайне мере ошибку я так понял
'.' expected but 'else' found

[HouK]

Сделал чтобы конечное уравнение выполнялось только если изначальное условие соотвествует ограничениям, надеюсь правильно, но программа теперь работает.

uses
  SysUtils,
  Convector in '..\..\convector\Convector.pas';
var
  a,x,y:real;
begin
  Write(Rus('Введите x='));
  Readln(x);
  if (x<>2) and (x<>3) and (x>=-2) then
    if (x>=-2) and (x<=0) then
      begin
        Writeln(Rus('Решение идет по первой ветке'));
        a:=sqr(x)*x;
        Write('a=');
        Writeln(a:5:2);
      end;
    if (x>=0) and (x<2) then
      begin
        Writeln(Rus('Решение идет по второй ветке'));
        a:=-abs(x-1);
        Write('a=');
        Writeln(a:5:2);
      end;
    if (x>2) and (x<>3) then
      begin
        Writeln(Rus('Решение идет по третьей ветке'));
        a:=(x+5)/(x-3);
        Write('a=');
        Writeln(a:5:2);
      end;
  if (x<>2) and (x<>3) and (x>=-2) then
    begin
      y:=sqr(x)+a/(x-2);
      Write('y=');
      Writeln(y:5:2);
      end
    else
  Writeln(Rus('Введеные данные не соответствуют условию задачи'));
  readln;
end.

Спасибо за помощь