Assign не хочет работать с Readln Опции

[Ярик]

При работе с файлом мне нужно указать путь к файлу с клавиатуры. В моём варианте assign работает только, если в программе не участвует readln(read). Поиском не пользовался, дабы нет времени. Просто очень срочно. Ребят, прошу помощи.

 
uses crt;
const N=10; M=15;
type massiv=array[1..N,1..M] of integer;
var a: massiv;
i,v,h,o,b,p,N2,M2,j,t,g,k,l: integer;
s: real;
f,f2: text;
str:string;
ch: char;


begin {1}
clrscr;

writeln ('Введите размер матрицы вида (M*N; gde N-столбцы (максимальный размер 10*15)');
writeln ('Введите количество столбцов');
repeat
read (N2);
until (N2>=3) and (N2<=10); {часть ввода данных}
writeln ('Введите количество строк');
repeat
read (M2);
until (M2>=1) and (M2<=15);
writeln; 


begin
writeln ('Куда вывести используемые данные? 1-записать в файл 2-вывести на окно ');
ch:=readkey;
if ch='1' then {сама работа с файлом (запись текста в него, с указанием полного пути, вводимого с клавы}
writeln ('Введите путь к файлу'); 
read (str);
assign (f2,str);
rewrite (f2);
write (f2,'isxodnaya matriza');

close (f2);
end;

readln;
readln;
end. {1}
 

я, думаю, для вас это ламерский вопрос..

[volvo]

if ch='1' then BEGIN { <--- Ты вот это слово не забыл вообще-то? }