Найти синтаксическую ошибку в коде

uses crt;
 
type pWord = ^nextWord;
 
     nextWord = record
     eng, rus: string;
     idx: integer;
     less, greater: pWord;
     end;
 
var old, new: pWord;
    choise: integer;
 
{-------------------------------------------------------------------}
procedure disposeAll(var p: pWord);
begin
if p = nil then exit;
 
if p^.less <> nil then
 if (p^.less^.less = nil) and (p^.less^.greater = nil) then
  begin
  dispose(p^.less);
  p^.less := nil;
  end
 else
  begin
  disposeAll(p^.less);
  dispose(p^.less);
  p^.less := nil;
  end;
 
if p^.greater <> nil then
 if (p^.greater^.less = nil) and (p^.greater^.greater = nil) then
  begin
  dispose(p^.greater);
  p^.greater := nil;
  end
 else
  begin
  disposeAll(p^.greater);
  dispose(p^.greater);
  p^.greater := nil;
  end;
 
end;
{-------------------------------------------------------------------}
procedure ins(var p: pWord; theWord: nextWord);
var tmp, cur: pWord;
begin
new(tmp);
tmp^.eng := theWord.eng;
tmp^.rus := theWord.rus;
tmp^.idx := theWord.idx;
tmp^.less := nil;
tmp^.greater := nil;
 
if p = nil then
 begin
 p := tmp;
 exit;
 end;
 
cur := p;
repeat
 
if tmp^.idx < cur^.idx then
 begin
 if cur^.less = nil then
  begin
  cur^.less := tmp;
  cur := nil;
  end
 else cur := cur^.less;
 end
 
else
 begin
 if cur^.greater = nil then
  begin
  cur^.greater := tmp;
  cur := nil;
  end
 else cur := cur^.greater;
 end;
 
until cur <> nil;
end;
{-------------------------------------------------------------------}
procedure readOld;
var cur: nextWord;
    choise: integer;
begin
disposeAll(old);
dispose(old);
old := nil;
 
repeat
 
write('Slovo na angliiskom: '); readln(cur.eng);
write('Slovo na russkom: '); readln(cur.rus);
 
repeat
write('Kolichestvo obraschenii: '); readln(cur.idx);
until cur.idx >= 0;
 
repeat
write('Budet esche slovo? (1/0) '); readln(choise);
until choise in [0..1];
 
ins(old,cur);
 
until choise = 0;
end;
{-------------------------------------------------------------------}
 
 
begin
 
repeat
clrscr;
writeln('1 - Vvesti slovari');
writeln('2 - Sformirovati novyi slovari');
writeln('3 - Vyvesti staryi slovari');
writeln('4 - Vyvesti novyi slovari');
writeln('5 - Naiti slovo');
writeln('6 - Dobaviti slovo');
writeln('7 - Udaliti slovo');
writeln('8 - Vyhod');
write('Vvedite nomer jelaemogo deistvia: '); readln(choise);
 
case choise of
 1: readOld;
 end;
until choise = 8;
 
end.