дан файл из строк. переписать 3 строку в новый файл.

очень простая задачка, но прога выдаёт ошибку 100!

uses crt;
var
f,f1 : file of string;
s : string;
i : byte;
begin
clrscr;
assign ( f, 'x-files.txt' );
assign ( f1, 'x-files1.txt' );
reset ( f );
rewrite ( f1 );
while not eof (f) do
begin
seek ( f, 3 );

read (f, s);

write ( f1, s);
end;
close (f);
close (f1);
readkey;
end.

файл то создан из которого ты читаешь ? Если создан, то это должен быть не текстовый файл, а file of string, во вторых если уж юзаешь seek, то не seek(3) а seek(2). (первая запись - нулевая)