Текстовый файл с числами - обработать и записать в другие два файла (Delphi)

[Sweet-_-Orange]

В файле расположено 10 элементов целых чисел, текстовый файл нужно прочитать, и четные числа добавить в один файл, а нечетные в другой.

[phomm]

Ваши наработки в студию - поможем.
Или сделаем за денежку, обращайтесь

[Sweet-_-Orange]

ну я просто в этом вообще не понимаю, даже когда что то учу
ну написал, но это бред же

a,b,f:textfile;
st:string;
begin
assign file(f'1.txt');
reset(f);
while not EOF(f)do;
readln(f,st);
showmassge(st);
close file(f);
end;

а как записать вообще не знаю

[whatever]

даже когда что то учу

Звучит неплохо...

a,b,f:textfile;
st:string;
begin
assign file(f'1.txt');
reset(f);
while not EOF(f)do;
readln(f,st);
showmassge(st);
close file(f);
end;

Вот это, в общем то, не бред, идея начала неплохая. Бред здесь - символ ";" после do, assignfile & closefile с пробелами, отсутствие begin-end после while not EOF(f) do. Ты программы в блокноте пишешь? Видно же, что запускать даже не пытался.
Ну это так, моя порция "старческого" ворчания. Решение такое:

var
  a,b,f:textfile;
  //st:string; //нах?
  elem:integer;
begin
  if fileexists('1.txt') then
    begin
      assignfile(f,'1.txt');
      reset(f);
      assignfile(a,'chet.txt');
      assignfile(b,'nechet.txt');
      rewrite(a);
      rewrite(b);
      while not EOF(f)do
        begin
          readln(f,elem);
          if (elem)mod(2)=0 then writeln(a,elem)
          else writeln(b,elem);
          //showmassge(st);
        end;
      close(f);
      close(a);
      close(b);
    end
  else
    begin
      writeln('file not found');
      readln;
    end;
end.

[Sweet-_-Orange]

спасибо большое
но есть 1 вопрос
я создал текстовые файл 1, chet, nechet
но при запуске программы ничего не происходит('file not found')
но я же его создал, почему не находит?

[whatever]

Навскидку два варианта: либо файл 1.txt лежит не в одной папке с программой, либо ты назвал его 1.txt и получилось, что он называется 1.txt.txt

Кстати, файлы chet и nechet создавать необязательно.

[Sweet-_-Orange]

создал текстовый файл с названием 1
он лежит в папке с программой
теперь, когда запускаю выдает ошибку
ProjectProject2.exe raised exception class EInOutError with massage 'Invalid numeric input'. Process stoped. Use Step or Run to Continue
может что то с файлов
я там записал: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
ну там это в текст. файле

[whatever]

Сообщение от Sweet-_-Orange

я там записал: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

Чисто из любопытства, ты где учишься? Ты ведь САМ написал, во втором сообщении

readln(f,st);

readLN. LN в конце означает переход на следующую строчку, поэтому о записи в одну строку речь идти не может. Ну и запятые там вообще не к месту, можно и с ними конечно, но для этого придется усложнять код, не вижу смысла. Я проверял на таком текстовике:

2
56
15
15
6
48
654
48
64
486
684
46
41
4
41
4
15
85
46
46
49
49
19
54
411

[Sweet-_-Orange]

Спасибо большое!!
очень выручили!
все работает!

ну учусь я в Могилянке(Николаев, Украина)
я вроде бы и на лекциях слушаю, и книги читаю, но вот Делфи до меня не доходит(

[whatever]

До меня дошло на первой промежуточной сессии, когда оказался с дэлфёй один на один, до этого тоже ни в зуб ногой. Я это к тому, что пока сам пробовать не начнешь, ничего не получится. Нужно садиться и разбираться.