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

[SVing]

и ? ничего не происходит
а вообще можно это организовать без этих тектовых документов?

[s-andriano]

Еще раз перечитай, что должна делать программа.

[BDA]

uses
  crt;

var
  i, l: integer;
  s: string;

begin
  assign(output, 'file1.txt');
  rewrite(output);
  for i := 1 to random(100) + 5 do
  begin
    for l := 1 to random(100) + 5 do
      write(chr(32 + random(25)));
    writeln;    
  end;
  close(output);
  assign(input, 'file1.txt');
  assign(output, 'file2.txt');
  reset(input);
  rewrite(output);
  while not eof(input) do 
  begin
    readln(s);
    l := length(s);
    for i := l downto 1 do write(s[i]);
    writeln;
  end;
  close(input);
  close(output);
end.

Такой вариант сам создаст требуемые файлы.

без этих тектовых документов

Задание четко требует использования файлов.
Смысл-то в том, чтобы научиться работать с файлами.

[TinMan]

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

Смысл-то в том, чтобы научиться работать с файлами.

Это для кого как.. Для кого-то - в том, чтоб свалить и забыть.

[offtop]BDA, преклоняюсь перед твоей выдержкой. Перед тобой чел, откровенно плюющий на все, а ты ему в рот разжеванное кладешь?..
А на фига?.. Самоутверждение? Самобичевание?
Оно тебе надо, чтоб этот лоботряс получил свой диплом?..[/offtop]