program osszead5;
var fajl: text;
    szam, eredmeny: integer;
begin
  writeln('Osszead 5. Adjuk ossze a paratlan pozitiv szamokat!');
  assign(fajl, 'szamok.txt');
  {$I-}
  reset(fajl);
  {$I+}
  if IOResult<>0 then
  begin
     writeln('Szukseg van a "szamok.txt"-re');
     exit; //kilepes a programbol
  end;
  eredmeny := 0;
  while not eof(fajl) do
  begin
    readln(fajl, szam);
    //writeln(szam);
    if (szam mod 2 = 1) and (szam > 0) then
      eredmeny := eredmeny + szam;
  end;
  writeln('Eredmeny: ', eredmeny);
  close(fajl);
  assign(fajl, 'szum.txt');
  rewrite(fajl);
  writeln(fajl, eredmeny);
  close(fajl);
  wrtieln('A kert osszeg kiirva a "szum.txt" fajlba.');
  readln;
end.