Помогите исправить ошибку!

[Олесенька]

Помогите,сегодня курсовую сдавать..ошибку не могу исправить,точнее исправляю и программа летит.
(там в описании переменных паскаль ругается)
программа шестнадцатеричный калькулятор

[isqoff]

смотри исправления

[Олесенька]

Спасибо большое)

но результат, к сожалению не верный все равно((
он считает с ошибкой
какое бы выражение он не считал всегда ответ =0.
=(

[isqoff]

а вы просили исправить только на что ругается компилятор

[isqoff]

Код: Выделить всё

   case n of
1:
begin
WriteLn ('Введите выражение вида <аргумент1><действие><аргумент2>');
WriteLn ('Например: F2A1. C7+C1.85');
readLn (allst);
StProc (allst, gotst);
readLn;
end;

Эта часть кода у вас когда работать будет?