Delphi нужно небольшая помощь в отладке программы-сканер

[d1mazty]

Ребята, всем привет!

Помогите пожалуйста исправить программку, преподаватель сказал примет если сделаю одно изменение, иначе никак. Получается это сканер, он определяет "Арифметическое" или "Не арифметическое" выражение. И мне он сказал, если я сделаю следующее изменение, то примет работу. Надо сделать, так что если последний символ в выражении знак операции к примеру "х2+4+", то чтобы оно выбивало что это "Не арифметическое", а то говорит, что оно "Арифметическое" в данной программе. Надо сделать проверку по последнему символу, и если это знак, то оно показывало что выражение "Не арифметическое". У меня ничего не вышло, помогите пожалуйста.

[Stilet]

 if 
 (
   pos(copy(trim(Memo1.Lines[i]),Length(Memo1.Lines[i]),1),'+-*/.')=0
 )
 and isArifmetExt(Memo1.Lines[i]) 
then

если я сделаю следующее изменение, то примет работу.

А ты уверен что это не развод?
Я бы не принял. Хотя бы потому что код писал не ты.