Как сформировать запись строк и целых чисел, взятых из отдельных файлов?

Question

[kan3k1k3n]

задание: дан файл строк и файл целых чисел. Сформировать новый файл – записей, содержащих строки и целые числа (в одну запись объединяются элементы, стоящие на одинаковых позициях в исходных файлах). Запись прекращается, когда оканчивается любой из входных файлов.
в первом файле написано: привет как дела
во втором: 1 2 3
в третий файл записывается только: привет как дела 1,
хотя должно привет 1 как 2 дела 3
код:

var 
  f1,f2,f3: text;
  s: string;
  i: integer;
begin
  assign(f1,'file1.txt');
  reset(f1);
  assign(f2,'file2.txt');
  reset(f2);
  assign(f3,'file3.txt');
  rewrite(f3);
 while not eof(f1) and not eof(f2) do
   begin  
   readln(f1,s); 
   readln(f2,i);
   writeln(f3,s,' ',i);
   end;
   close(f1);
   close(f2);
   close(f3);
end.

Answer 1

[Hemul GM]

Потому что "привет как дела" у тебя написано в одну строку. Файл читает построчно. Берешь строку и парсишь по пробелам (код зависит от среды, где пишешь). В делфи str.Split([' '])

Comments

[kan3k1k3n]

я пишу в pascalabc.net
как там парсить по пробелам?

[Hemul GM]

kan3k1k3n, вроде так же можно

[kan3k1k3n]

Hemul GM, ну я сделал вот так:

readln(f1,s);
   s.Split(' ');
   readln(f2,i);

и ничего не изменилось. может как-то неправильно написал? (без квадратных скобок, потому выдается ошибка "нельзя преобразовать тип set of char к char").

[Hemul GM]

kan3k1k3n, что не изменилось? Покажи весь код, что написал

[kan3k1k3n]

Hemul GM,

var 
  f1,f2,f3: text;
  s: string;
  i: integer;
begin
  assign(f1,'file1.txt');
  reset(f1);
  assign(f2,'file2.txt');
  reset(f2);
  assign(f3,'file3.txt');
  rewrite(f3);
 while not eof(f1) and not eof(f2) do
   begin  
   readln(f1,s);
   s.Split(' ');
   readln(f2,i);
   writeln(f3,s,' ',i);
   end;                 
   close(f1);
   close(f2);
   close(f3);
end.

не изменился 3 файл. так и осталось: привет как дела 1

[Hemul GM]

kan3k1k3n, эм. Так ты опять массив пишешь, а должен отдельно по элементам писать. Ты же делишь строку и получаешь массив.