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

[SVing]

Создать текстовый файл, строки которого содержат слова. Записать в перевернутом виде строки старого файла в новый файл. Порядок строк в новом файле должен совпадать с порядком исходных строк
Помогите пожалуйсто сделать ,зарание спасибо!

[Алекс!]

// надеюсь файл уже готов
uses crt;
var a,i,l:integer;
     s1,s2:string;
begin
assign(input,'file1.txt');
assign(output,'file2.txt');
reset(input);
rewrite(output);
while not eof(input) do begin
 readln(s1);
 l:=length(s1);
 for i:=l downto 1 do s2[l-i+1]:=s1[i];
 writeln(s2);
end;
close(input);
close(output);
end.

[SVing]

да ничего не готова , даже не понимаю о чём ты

[Paster Fob]

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

да ничего не готова , даже не понимаю о чём ты

ты должен самостоятельно подготовить входящий файл со словами.

[SVing]

это каким образом?

[BDA]

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

это каким образом?

Открыть блокнот, набрать текст, сохранить...

[SVing]

а это программа уже готова ? что на первом посте? как-то код маленький

[BDA]

Вполне нормальное решение.
Слушайте, хотя бы скомпилируйте и посмотрите.

[SVing]

ну я скомпилировал , не находит файл указывая на строчку reset(input);и что делать с этим ? как указать путь на файл ?

[BDA]

assign(input,'file1.txt');

Файл должен называться file1.txt и находиться в той же папке, что и ехе-файл.