строки

[romich.91]

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

[Serge_Bliznykov]

и что вызывает затруднения!?!

var
  f, fOut : text;
  i : integer;
  sDigit, s, sTempI : string;
begin
  WriteLn('Введите цифру (на которую заменять первую цифру тел.номера)');
  ReadLn(sDigit); 
  Assign(f,'Text1.txt');
  Reset(f);
  Assign(fOut,'Text2.txt');
  Rewrite(fOut);
  i:=0;
  while Not Eof(f) do 
  begin 
    Inc(i);
    Readln(f,s);
    Str(i, STempI);
    WriteLn(fOut,STempI+'. '+Copy(s,1,Pos(' ',s))+
        sDigit+
        Copy(s,Pos(' ',s)+2, Length(s)-(Pos(' ',s)+1)));
  end;
  Close(f);
  Close(fOut);
end.

проверки на отсутствие файла и на то, что в нём пустые или неверные строчки добавите сами, "по вкусу"...

[VadEr]

Или так:

const
  f_name='Text1.txt';
  f_name1='Text2.txt';
var
  f1, f2 :Text;
  st :string;
  i :word;
  n_tel :byte;
  n_telOk :String[1];
begin
  Assign(f1, f_name);
  Assign(f2, f_name1);
  {$I-}
  Reset(f1);
  If IOResult <> 0 then
     begin
          Write('Файл с данными не найден!');
          Readln;
          Exit
     end;
  {$I+}
  Rewrite(f2);
  i := 0;
  While not eof(f1) do
  begin
     Readln(f1, st);
     If st <> '' then
     begin
     Inc(i);
     Writeln(i,'. ',st);
     Write('Введите первую цифру телефона: ');
     Readln(n_tel);
     Delete(st, Pos('_', st) + 1, 1);
     Str(n_tel, n_telOk);
     Insert(n_telOk, st, Pos('_', st) + 1);
     Writeln(i,'. ',st); Writeln(f2,i,'. ',st); Writeln
     end
  end;
  Close(f1);
  Close(f2);
  Writeln('Инфрмация записана в файл "TEXT2.TXT"');
  Readln
end.

[romich.91]

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