Переписать в другой текстовый файл те строки из первого файла, в которых сумма чисел не четна.

procedure FP(name1,name2:string);
var f,g:text;
    s,s1:string;
    i,j,k,sum:integer;
begin
writeln('Введите имя исходного файла без расширения');
readln(name1);
name1:=name1+'.txt';
if not fileexists(name1) then
 begin
  writeln('Файл с именем ',name1, 'не найден');
  readln;
  exit
 end;
assign(f,name1);
reset(f);
writeln('Введите имя выходного файла без расширения');
readln(name2);
name2:=name2+'.txt';
assign(g,name2);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s+' ';
  i:=2;
  sum:=0;
  while i<length(s) do
  if(s[i]<>' ')and(s[i-1]=' ') then
   begin
    j:=i;
    s1:='';
    k:=0;
    while(j<length(s))and(s[j]<>' ') do
     begin
      s1:=s1+s[j];
      if s[j] in ['0'..'9'] then k:=k+1;
      j:=j+1;
     end;
    if k=length(s1) then sum:=sum+strtoint(s1);
    i:=i+length(s1);
   end
  else i:=i+1;
  if sum mod 2=0 then writeln(g,s);
 end;
 close(f);
 close(g);
 end;
 var name1,name2:string;
 begin
 FP(name1,name2);
 end.