на строке else "ожидался оператор"

[kolobok11]

причём если убрать условие if-else все работает как часы

(87) : Ожидался оператор

PASCALABC

Type 
	te=char; 
	pe=^el;
	el=Record //содание структуры элемента ЛДС
		inf:te;
		next:pe;
		pre:pe;
	End;
	
Var 
	zag,p,q,k:pe;
	i,n,m:Integer;
	e:char;
	
Begin
	New (zag);
	Zag^.next:=Nil; //подготовка заглавного элемента
	Zag^.pre:=Nil; 
	p:=zag;	
	Write('Задайте количество элементов ЛДС: ');
	Readln(m);
	//-----------------//
	if (m>0) then
	Begin
		For i:=1 To m Do //создание ЛДС
			Begin
				New (q);
				Write('Введите значение очередного элемента ЛДС: ');
				Readln(q^.inf);
				q^.pre:=p;
				p^.next:=q;
				p:=q;
			End;
		q^.next:=Nil; 
		q:=zag^.next;
		Writeln('Контрольный вывод ЛДС');
		i:=1;
		While (q<>Nil) Do
			Begin
				Writeln('№',i,':', q^.inf);
				q:=q^.next;
				i:=i+1;
			End;
		Writeln('Хотите ли вы добавить новый элемент в ЛДС? 1 да, 0 нет');
		Readln(n);
		While (n=1) Do
		Begin
			Write('Введите номер элемента ЛДС, перед которым будет добавлен новый элемент: ');
			Readln(n); //номер элемента, перед которым появится новый элемент
			While (n>m) Do
				Begin
					Writeln ('Введённое число превышает количество элементов ЛДС. Пожалуйста, повторите ввод.');
					Readln(n);
				End;
			q:=zag^.next;
			i:=1;
			While (i<>n) and (q<>Nil) Do //перебор элементов до указанного 
				Begin
					q:=q^.next;
					i:=i+1;
				End;
			Write('Введите значение нового элемента ЛДС: ');
			New(k);
			Readln(k^.inf);
			p:=q^.pre;
			p^.next:=k;
			k^.pre:=p;
			q^.pre:=k;
			k^.next:=q;
			m:=m+1;
			Writeln('Хотите ли вы добавить новый элемент в ЛДС? 1 да, 0 нет'); //повторный вопрос
			Readln(n);
		End;
		q:=zag^.next;
		n:=1;
		writeln('Повторный контрольный вывод ЛДС');
		While (q<>Nil) Do
			Begin
				Writeln('№',n,':', q^.inf);
				q:=q^.next;
				n:=n+1;
			End;	
		Writeln('Завершение работы программы. Нажмите клавишу Enter.');
		Readln(e);
	End;
	else 
		Begin	
		  Writeln('Завершение работы программы. Нажмите клавишу Enter.');
			Readln(e);
		End;
End.

[TinMan]

Убери ";" на предыдущей строке.

[kolobok11]

Спасибо!