Внешний файл dan.txt...

Внешний файл dan.txt содержит целые числа из диапозона от 1 до 30.Запишите в файл delen.txt четные, а в nedelen.txt не четные!!Срочноребят)

 

Извини, вчера меня тут не было))) надеюсь она ещё тебе нужна)))
uses crt;
const
n=30;
var
a,i:integer;
dan,delen,nedelen:text;
begin
assign(dan,'dan.txt');
reset(dan);
assign(delen,'delen.txt');
assign(nedelen,'nedelen.txt');
rewrite(delen);
rewrite(nedelen);
for i:=1 to n do
begin
read(dan,a);
if a mod 2=0 then
write(delen,a,' ')
else
write(nedelen,a,' ')
end;
close(delen);
close(nedelen);
close(dan);
write('programma zaverwena!)');
read;
end.