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

[киб]

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

[Гость]

1. Дано файл f, компонентами якого є дійсні числа. Записати у файлі g найменше із значень компонент із непарними номерами файла f.

Program z1;
var
f:file of real;
p,n,n1:string;
x,m:real;
i:integer;
begin
writeln('Введіть шлях до файлу');
read(p);
writeln('Введіть ім"я вхідного файлу');
read(n);
writeln('Введіть ім"я вихідного файлу');
read(n1);
assign(f,p+'\'+n);
i:=1;
read(f,m);
while not eof(f) do
begin
read(f,x);
i:=i*(-1);
if i=1 then
begin
if x<m then m:=x;
;
end;
end;
close(f);
assign(f,p+'\'+n1);
write(f,m);
close(f);
end.

Посмотри пожалуйста, вот что-то делал, но нимогу понят почему не вводиться путь к файлу!

[Ozzя]

Посмотри пожалуйста, вот что-то делал, но нимогу понят почему не вводиться путь к файлу!

...
begin
  writeln('Введ?ть шлях до файлу');
  readln(p);
  writeln('Введ?ть ?м"я вх?дного файлу');
  readln(n);
  writeln('Введ?ть ?м"я вих?дного файлу');
  readln(n1);
  writeln(p+'\'+n); {отладка}
  assign(f,p+'\'+n);
...

Строки вводятся readln, а не read.