Считать из файла целое число и вывести в другой файл само число с пояснением четное оно или нечетное — Pascal(Паскаль)

uses crt;
var f,g:text;
    a:integer;
    nf,ng:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(ng);
ng:=ng+'.txt';
assign(g,ng);
rewrite(g);
read(f,a);
write(g,a);
if odd(a) then write(g,' ne chetnoe')
else write(g,' chetnoe');
close(f);
close(g);
write('Результат записан в файл ',ng);
readln
end.