Программа противоречит сама себе. Сначала просит поставить точку с запятой, потом просит ее же убрать

var input, output:text;
  k,s:string;
  c,q,i,x:integer;
  n:char;
begin
  assign(input,'input1.txt');
reset(input);
assign (output,'output1.txt');
rewrite(output);
read(input,s);
  n:='+';
  q:=0;
  k:=' ';
  for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
      begin
      k:=s[i];
      if length(k)<2 then break
      else
        val(s[i],x,c);
            if n='+' then
            q:=q+x
            else
            q:=q-x //вот в этом месте просит поставить точку с запятой
         else
      end
    else if s[i] in ['+','-'] then
      n:=s[i];
    write(output,s[i]);
close(input);
close(output);
end.

var input, output:text;
  k,s:string;
  c,q,i,x:integer;
  n:char;
begin
  assign(input,'input1.txt');
reset(input);
assign (output,'output1.txt');
rewrite(output);
read(input,s);
  n:='+';
  q:=0;
  k:=' ';
  for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
      begin
      k:=s[i];
      if length(k)<2 then
      break
      else
        val(s[i],x,c);
            if n='+' then
            q:=q+x
            else
            begin
            q:=q-x;
            end;
    end;
    if s[i] in ['+','-'] then
      n:=s[i];
    write(output,s[i]);
close(input);
close(output);
end.