Программа на текстовый файл

[ZloyGenii2008]

Помогите плиз - я не знаю как это сделать: "Создать текстовый файл, который состоит из 10 строк. В файле поменять местами 1-ую и последнюю строчку". Заранее благодарю!!!

[Tkirill]

uses crt;
var
mas:array[1..10] of string;
i,j:integer;
s:string;
fil:text;
begin
clrscr;
assign(fil,'c:\x.txt');
rewrite(fil);
for i:=1 to 10 do
begin
readln(s);
writeln(fil,s);
end;
close(fil);
assign(fil,'c:\x.txt');
reset(fil);
for i:=1 to 10 do
begin
readln(fil,mas[i]);
end;
close(fil);
assign(fil,'c:\x.txt');
rewrite(fil);
writeln(fil,mas[10]);
for i:=2 to 8 do
writeln(fil,mas[i]);
writeln(fil,mas[1]);
close(fil);
readln;
end.

[ZloyGenii2008]

спасибо!!!!

[pomoshnic]

Только нужно

for i:=2 to 8 do
writeln(fil,mas[i]);

заменить на

for i:=2 to 9 do
writeln(fil,mas[i]);

[Tkirill]

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

Только нужно

for i:=2 to 8 do
writeln(fil,mas[i]);

заменить на

for i:=2 to 9 do
writeln(fil,mas[i]);

Опечатка

[ZloyGenii2008]

слухай а он не правильный!!!! препод сказал что тут нет замены строк!!!! напиши кодом как поменять строки!!!!!!!!!=))

[puporev]

Сначала введи в новй файл s[10], потом с s[2] до s[9], потом s[1].

[ZloyGenii2008]

puporev ты можешь тоже самое кодом????

[puporev]

А зачем тебе, если ты даже такое не умеешь и код тебе написали, чуть подделать? Что тебе легче станет? Меньше зеаешь, лучше спишь.