программа файлы

[darik2011]

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

program text;
var
F,F1:Text;
s,s1:array[1..100] of string;
n,i,k,i1:integer;
begin
Assign(F,'c:\text.txt');
Assign(F1,'c:\text1.txt');
ReSet(F);
ReWrite(F1); i:=1; while not EOF(F) do
begin
Readln(F,s[i]); n:=Length(s[i]);
for k:=1 to n do
begin
s1[i,k]:=s[i,n-k+1]; s1[i]:=s1[i]+s1[i,k];
end;
Writeln(F1,s1[i]); 
i:=i+1;
end;
Close(F);
Close(F1);
write(s1[1]);
readln;	
writeln ('Создан файл text1 с обратным порядком следования букв в каждой строке'); 
readln;
end.

в чем ошибка? "." expected а где нужна точка?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

Не надо использовать зарезервированные слова для идентификаторов.
Замени название программы (в первой строке) на что-нить другое.

[darik2011]

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

Не надо использовать зарезервированные слова для идентификаторов.
Замени название программы (в первой строке) на что-нить другое.

спасибо большое) все работает