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

var s,c,v:string;
    i,znak,number1,number2,err:integer;
    o:char;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
while not eof(input) do 
 begin    {Пока не встречен конец файла - читаем строки по одной}
 readln(s);
 for i:=1 to length(s) do if ord(s[i])<48 then znak:=i;  {Ищем место арифметического знака}
 c:=copy(s,1,znak-1);  {Помещаем в string первое число}
 val(c,number1,err);  {Превращаем из string в integer первое число}
 delete(s,1,znak-1); {Удаляем первое число}
 o:=s[1]; {Получаем знак}
 delete(s,1,1); {Удаляем знак}
 val(s,number2,err); {Осталось только второе число, превращаем сразу}
 case o of
 '+' : writeln(number1+number2);
 '-' : writeln(number1-number2);
 '*' : writeln(number1*number2);
 '/' :  if number2<>0 then writeln(number1/number2) else writeln('Деление на ноль'); {Если будет ноль - выведется, что деление на ноль - невозможно}
 end;
 end;
close(output);
end.