Вывести значение целочисленного выражения, заданного в виде строки

function count1(s:string):integer;
begin
 if length(s)=1 then count1 := ord(s[1])-ord('0')
 else if s[length(s)-1]='*' then count1 := count1(copy(s,1,length(s)-2))*(ord(s[length(s)])-ord('0'));
end;

function count(s : string) : integer;
begin
  if length(s)=1 then count := ord(s[1])-ord('0')
  else case s[length(s)-1] of
  '+' : count := count(copy(s,1,length(s)-2))+ord(s[length(s)])-ord('0');
  '-' : count := count(copy(s,1,length(s)-2))-ord(s[length(s)])+ord('0');
  end;
end;

program r15;
{ Вывести значение целочисленного выражения, заданного в виде
строки S. Выражение определяется следующим образом:
<выражение> ::= <терм> | <выражение>+<терм> |
<выражение>-<терм>
<терм> ::= <цифра> | <терм>*<цифра>}
uses
  crt;
var
  s : string; 
procedure count(s:string;var N:integer;var s1:string);
begin
  if length(s)=1 then N := ord(s[1])-ord('0')
  else if s[length(s)-1]='*' then 
        begin   
         count(copy(s,1,length(s)-2),N,s1);
         N := N*(ord(s[length(s)])-ord('0'));   
        end
       else if (s[length(s)-1]='+') or (s[length(s)-1]='-') then
             begin
              s1 := copy(s,1,length(s)-2);
              if s[length(s)-1]='-' then N := (-1)*(ord(s[length(s)])-ord('0'))
              else N := (ord(s[length(s)])-ord('0'));
             end;
end;
function count1(s:string):integer;
var s1 : string; N : integer;
begin
  s1 := '';
  count(s,N,s1);
  if s1='' then count1 := N
  else count1 := N + count1(s1);
end;
function test(s:string):boolean;
begin
  if length(s)=1 then 
    if s[1] in ['0'..'9'] then test := true
    else test := false
  else if (s[length(s)] in ['0'..'9']) and (s[length(s)-1] in ['+','-','*']) then 
       test := test(copy(s,1,length(s)-2)) and true
       else test := false;     
end;
begin
  ClrScr;
  repeat
  write('s = ');
  readln(s);
  until test(s);
  writeln(s,' = ',count1(s));
  readln;
end.