Stockholm Syndrome

оскольку внизу стоит goto 1, он должен повторить условие 6 строки, то есть поделить 562 на 2

что делать?

program abc; 
var 
  str: string; 
  i: Integer;
begin 
  ReadLn(str);
  i := 0;
  
  foreach w: string in Regex.Split(str, ' +') do begin 
    if w[1] = 'С' then begin 
      Inc(i);
      if i = 2 then begin
        WriteLn(w);
        break;
      end;
    end;
  end;
end.

const N = 5; 
var
  i, j, s: Integer; 
  nums: array[1..N] of Real; 
begin
  for i := 1 to N do begin 
    ReadLn(nums[i]);
  end;
  
  s := 0; 
  for j := 1 to N do begin 
    if Frac(nums[j]) <> 0 then begin 
      s := s + 1;
    end;
  end;
  
  WriteLn(s);
end.