текстовой файл

[Katia123]

Помогите, пожалуйста, с программкой!!!
Дан текстовой файл из букв и цифр. В отдельные текстовые файлы записать буквы и цифры

[Serge_Bliznykov]

читайте построчно.
разбивайте на две строчки (в одну — цифры, в другую строчку - всё остальное).
пишите строчки в отдельные файлы.

  readln(f, s);
  s1 := '';
  s2 := '';
  for i:=1 to length(s) do
     if s[i] in ['0'..'9'] then s1 := s1 + s[i]
        else s2 := s2 + s[i];
  WriteLn(fDigit, s1);
  WriteLn(fLetter, s2);

[Katia123]

Спасибо, за помощь. А можно как нибудь подробнее, или это вся программа? Тяжело мне с программированием

[Serge_Bliznykov]

Катя, написать программу абсолютно несложно. (фактически к тому коду, что выше, надо добавить описание переменных

var f, fDigit, fLetter : Text;
  s, s1, s2 : string;
  i : integer;

добавить связываение файловых переменных с именами файлов, открытие файлов f - на чтение, а fDigit, fLetter - на запись.
и добавить основной по всем строчкам файла f

  while Not Eof(f) do begin
    ... тут код из пост #2
  end;

закрыть все файлы.
всё. END.

Соберите всё это в кучу. Может быть, хоть чему-то научитесь.
А вообще, это же Азбука. Неужели трудно взять любую книжку (можно онлайн курсы открыть) и хоть немножко почитать?! Ведь всё равно Вам ещё сдавать это надо будет!

[Katia123]

Спасибо большое!!! Я обязательно почитаю, надо же понять что и как тут получилось.

[Serge_Bliznykov]

вот. Умница!
А вот уж если возникнут вопросы/непонятки - милости просим сюда на форум!

Удачи.