ребят, есть вопрос по строчному чтению...

program stroka;
uses crt;
var a:real; b:string; q:text;
begin
Writeln('Введите номер строки');
readln(a); // пользователь выбирает нужную строку
assign(q,'text.txt'); // связь с файлом 
reset(q); // чтение из файла
а вот здесь интересней, как мне сделать так чтобы выбранное число пользователем сочиталось со строками и выводилась та строка которую он выбрал
writeln(b);
readln;
end.

program file;
uses crt;
var a:string;
q:text;
Begin
writeln('введите новое имя фала');
read(a);
assign(q,'c:\config\а вот здесь должно быть то что вписал пользователь.txt');

path:='c:\config\'

path:=path+a;

assign(q,path);

Writeln('Введите номер строки');
readln(a); // пользователь выбирает нужную строку
assign(q,'text.txt'); // связь с файлом 
reset(q); // чтение из файла
i:=0;
while not eof(q) do
 begin
  readln(q,b);
  i:=i+1;
  if i=a then writeln(b);
 end;
close(q);
readln;
end.

begin
Writeln('Введите номер строки');
readln(a); // пользователь выбирает нужную строку
assign(q,'text.txt'); // связь с файлом 
for i:=1 to a do
readln(q, str);