Pascal, ошибка 113 (else... if)

[chaosmagic]

Здравствуйте! Я полный и абсолютный новичок в программировании, поэтому совершенно не понимаю, чего хочет Паскаль от от пятой строки от конца скриншота - "else if x<0 then". Выдаёт ошибку 113 - Error in Statement.

Скриншот: http://i38.fastpic.ru/big/2012/0514/...97f0a9f5a9.jpg

Ниже были схожие темы, там советовали убрать ; - не помогает, требует поставить точку с запятой и всё. =/ Если кто вдруг обнаружит и сможет помочь исправить другие ошибки, будет вообще класс =)))

[Hacker19_90]

блок не закрыли! Код сюда плиз!
и задание желательно!

[Arigato]

Во-первых, научитесь делать отступы в программном коде.
Во-вторых, данный else не относится ни к одному if.

[chaosmagic]

Задание - написать программу для вычисления функции; я правильно понимаю, что "подготовить наборы переменных для тестирования всех ветвей программы" значит подобрать любые значения и подставить их в самое начало? оО

Функция - http://i37.fastpic.ru/big/2012/0514/...a6240b456d.jpg

Program pascal2;
Uses crt;
VAR
a,b,c,d,x,y,min,max: real;

Begin
clrscr;
a:=5;
c:=7;
d:=8;
WriteLn ('Введите число x (для подтверждения ввода - Enter):');
ReadLn (x);

If x>0 then
	begin if x<1 then
		begin
		if y>0 then 
		begin
		if y<1 then 
begin if x<y then min:=x else min:=y;
If min*(sin(c*x))>cos(d) then
max:=min*(sin(c*x)) else max:=cos(d);
begin 
b:=2*ln(x)*max;
else if X<0 then
begin
if y<0 then
begin if exp(x+1)<y then b:=exp(x+1) else b:=y end;
else begin b:=a+x end;

WriteLn ('a=',a:6:3,' b=',b:6:3,' c=',c:6:3,' d=',d:6:3,' x=',x:6:3,' y=',y:6:3);

WriteLn ('Для завершения работы программы нажмите Enter.');
ReadLn;
End.

[chaosmagic]

Кажется, ясно стало про "не относится". Спасибо! =)))