Pascal, задача про обработку текстовых файлов

[Noobik2]

Создать текстовый файл с произвольным содержимым. Написать программу, которая изменяет файл таким образом, что каждое его слово, содержащее хотя бы одну цифру, заклю-чается в скобки, а затем дописывает в конец файла строку, в которой указывается количество слов, заключенных в скобки. Под словом понимается любая последовательность символов, разделенная пробелом, концом строки или концом файла.

[Serge_Bliznykov]

А где ваши наработки? Что у Вас конкретно не получается?

Поиском не пробовали искать? Код, который разбивает строку на отдельные слова на форуме приводился неоднократно...

И ещё. Или Вы пытаетесь самостоятельно решить и тогда можете расчитывать на помощь или ждите "добренького", кто Вам код полностью напишет или обращайтесь за платной услогой во фриланс.

Успехов

[Noobik2]

Извините интернет вылетел. У меня проблема в том, что я немогу понять как обрабатывать построчно текстовый файл, как обращаться к файлу, чтообы прочитать третью строку например.

[Vanta11a]

Читать мануалы не пробовали?

[Noobik2]

Сообщение от Vanta11a

Читать мануалы не пробовали?

можете дать ссылку на данный материал?

Спасибо за советы, разобрался с задачей. ( оказалось все так просто)

[Vanta11a]

На будущее: лучшая ссылка - гугл. В нем формируете запросы вида "Как сделать *то, что нужно* *язык программирования*", например "как отсортировать массив pascal" или "работа с файлами с++".

[Noobik2]

Сообщение от Vanta11a

На будущее: лучшая ссылка - гугл. В нем формируете запросы вида "Как сделать *то, что нужно* *язык программирования*", например "как отсортировать массив pascal" или "работа с файлами с++".

Хорошо, так и поступил

А можете еще помочь, ошибку выдает компилятор, ошибка времени выполнения: индекс находился вне границ массива.

procedure insertskobki(var S:string);
var
  i,k,count:integer;
  m:array of string;
begin
  count:=1;
  while s[1]=' ' do
    delete(s,1,1);
  while s[length(s)]=' ' do
    delete(S,length(s),1);
  while pos('  ',S)<>0 do
    delete(S,pos('  ',S),1);
  for i:=1 to length(s) do
    if s[i]=' ' then
      inc(count);
  setlength(m,count);
  k:=1;
  for i:=0 to high(m) do
    begin
      m[i]:='';
      while (s[k]<>' ')and(k<=length(s)) do
        begin
          m[i]:=m[i]+s[k];
          inc(k)
        end;
      inc(k);
    end;
  s:='';
  for i:=0 to high(m) do
    if (pos('0',m[i])<>0)or
       (pos('1',m[i])<>0)or
       (pos('2',m[i])<>0)or
       (pos('3',m[i])<>0)or
       (pos('4',m[i])<>0)or
       (pos('5',m[i])<>0)or
       (pos('6',m[i])<>0)or
       (pos('7',m[i])<>0)or
       (pos('8',m[i])<>0)or
       (pos('9',m[i])<>0) then
          s:=s+'('+m[i]+') '
    else
      s:=s+m[i]+' ';
end;
var
  S:string;
  
begin
  
  Readln(S);
  insertskobki(s);
  writeln(s);
  
end.

хотя он поидее находится в границах

[ZX Spectrum-128]

High(m)-1
Скорее всего, нужно поставить.