Помогите решить прогу по Паскалю Из файла cisla.txt039; перенести в файл

PascalABC.NET V3.3

var

  a: integer;

  fin, fout: text;

begin

  assign(fin, 'cisla.txt');

  assign(fout, 'c.txt');

  reset(fin);

  rewrite(fout);

  while not (eof(fin)) do 

  begin

    readln(fin, a);

    if a mod 2 = 0 then a := 0;

    writeln(fout, a);

  end;

  close(fin);

  close(fout);

end.