Файлы строкового типа (ПАСКАЛЬ)

[sir.andrey]

*Помогите найти ошибочку*
Задача:
В файле F содержится отформатированный текст. Предложения в тексте разделены точками. Переписать содержимое файла F в файл G таким образом, чтобы каждое предложение было записано в одной отдельной строке.
Моя прога:

program stroka;
var f,g:text; a:string; i:integer; o:char;
begin
Assign (f,'file.dat'); reset (f);
Assign (g,'file1.dat'); rewrite (g);
while not eof(f) do begin
		    readln (f,a);
		    for i:=1 to length(A) do begin
					     if a[i]<>'.' then write(g,a[i])
							   else begin
							       writeln(g,a[i]);
							       end;

					      end;
		    end;
close(f); close(g);
end.

[ai\ekcah^p]

У меня все работает. Ты перед запуском проги создай файл fail и заполни его согласно заданию.

program stroka;
var f,g:text; a:string; i:integer; o:char;
begin
Assign (f,'c:/file.txt'); reset (f);
Assign (g,'c:/file1.txt'); rewrite (g);
while not eof(f) do begin
		    readln (f,a);
		    for i:=1 to length(A) do begin
					     if a[i]<>'.' then write(g,a[i])
							   else begin
							       writeln(g,a[i]);
							       end;

					      end;
		    end;
close(f); close(g);
end.