Паскаль файловые переменные, Помогите пожалуйста сделать задачки Опции

[киб]

1. Дан файл f, компонентами которого являются вещественные числа. Записать в файле g менее всего из значений компонент с непарными номерами файла f.
2. Дано число к и текстовый файл. Уничтожить из файла строку с номером к (строки нумеруются от 0). Если строки с таким номером нет, то оставить файл без изменений.
3. Дан текстовый файл f, каждое слово которого видокремлено от других символом пробела. Записать в файле g, в алфавитном порядке, все слова длиной у n символов.

[Гость]

а во второй вроде все правильно, но не вводиться K, может я что-то нитак делаю?
Program z2;
var
k,i:integer;
f,f1:text;
p,n:string;
begin
writeln('Введіть значення k');
read(k);
writeln('Введіть шлях до файлу');
read(p);
writeln('Введіть ім"я файлу');
read(n);
assign(f,p+'\'+n);
reset(f);
assign(f1,p+'\tmp.tmp');
rewrite(f1);
i:=0
while not eof(f) do
begin
readln (f);
if k<>i then writeln(f1);
i:=i+1;
end;
close(f);
close(f1);
assign(f,p+'\'+n);
erase(f);
assign(f1,p+'\tmp.tmp');
rename(f1,p+'\'+n);
close(f1);
end.