Вычислить значение арифметического выражения в строке

uses crt;
const nmax=100;//максимальный размер массива
      zn=['+','-','*','/'];//знаки действий
var s:array[1..nmax] of string[30];//масив
    a,b,r:string[10];//первое, второе числа и результат
    z:char;//знак
    n,i,j,p,t1,t2,res,c1,c2:integer;//разные переменные целого типа
begin
clrscr;
repeat
write('Введите количество выражений n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' арифметических выражений вида число знак действи число:');
for i:=1 to n do
readln(s[i]);//создаем массив
for i:=1 to n do
 begin
  p:=0;//позиция знака
  for j:=1 to length(s[i]) do
  if s[i][j] in zn then
   begin
    p:=j;//находим знак
    z:=s[i][j];//действие
   end;
  if p in [0,1,length(s[i])] then//если знак только первый,последний, или его вообще нет
   begin
    s[i]:=s[i]+' неверное выражение';
    writeln(s[i]);
   end
  else
   begin
    a:=copy(s[i],1,p-1);//первое число
    val(a,t1,c1);//преобразуем в числовой формат
    b:=copy(s[i],p+1,length(s[i]));//втрое число
    val(b,t2,c2);
    if(c1<>0)or(c2<>0) then//если хоть одно не число
     begin
      s[i]:=s[i]+' неверное выражение';
      writeln(s[i]);
     end
    else
     begin
      case z of//взависимости от знака выполняем действие
      '+':res:=t1+t2;
      '-':res:=t1-t2;
      '*':res:=t1*t2;
      '/':res:=t1 div t2;
      end;
      str(res,r);//преобразуем в строку
      s[i]:=s[i]+'='+r;//добавляем к исходной
      writeln(s[i]);
     end;
   end;
  end;
readln
end.