FreePascal.ru

Помогите пожалуста в задаче, а то у меня почемуто не правильно работает поиск, при нажатии клавиш все время надпись "There is no such thing in database".

'2': begin
clrscr;
search:
writeln;
writeln('n - search for name');
writeln('m - search for model');
writeln&#40 ...