Паскаль, текстовые файлы

[Абай]

Паскаль, текстовые файлы

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

 

[Vladimir_S]

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

Имена и адреса файлов, естественно, поставьте свои:

VAR
 ft,fn,ft1:TEXT;
 S,Sn:String;
 n,IOr:Integer;
BEGIN
 {$I-}
 Assign(ft,'D:\text.txt');
 ReSet(ft);
 Assign(fn,'D:\num.txt');
 ReSet(fn);
 Assign(ft1,'D:\text1.txt');
 ReWrite(ft1);
 Repeat
  IOr:=0;
  Readln(ft,S);
  If IOr=0 then
   begin
    Read(fn,n);
    IOr:=IOResult;
    If IOr=0 then
     begin
      Str(n,Sn);
      S:=S+Sn;
     end;
   end;
  Writeln(ft1,S);
 Until EoF(ft);
 Close(ft);
 Close(fn);
 Close(ft1);
END.

Здесь ft - файл с текстом, fn - файл с числами, тоже текстового формата.

 

[Абай]

спасибо!