Witajcie,
Potrzebuję pomocy w zadaniu:
" Dany jest plik tekstowy słowa.txt, zawierający nie więcej niż 100 słów, każde zapisane w jednym wierszu. Napisz program, który odczyta zawartość pliku słowa.txt a następnie utworzy plik słowa2.txt, zawierający te same słowa, zapisane w odwrotnej kolejności."
Kompletnie nie wiem, jak zrobić by w pliku słowa2.txt zapisały się te słowa w odwrotnej kolejności : /
Oto kod jaki udało mi się stworzyć do tej pory:
" Program zadanie1;
var
t:word;
plik1:text;
plik2:text;
slowo:string;
begin
Assign(plik1,'plik1.txt');
Rewrite(plik1);
for t:=1 to 99 do
Writeln(plik1,'slowo numer ',t);
close(plik1);
Assign(plik1,'plik1.txt');
Reset(plik1);
Assign(plik2,'plik2.txt');
rewrite(plik2);
REPEAT
readln(plik1,slowo);
writeln(plik2,slowo);
UNTIL EOF(plik1);
close(plik1);
close(plik2);
end. "
Czy byłby ktoś w stanie pomóc mi w jego dokończeniu ?
Z góry dziękuję za szybką odpowiedź