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]

Что происходит У ТЕБЯ при запуске той программы, которую ты привел? Не запускается? Ошибка? Перезагрузка?

[Ярик]

когда встречается read то прога не даёт ввести путь к файлу, а выводит результат прям в окно. На то место где должен быть путь.

без ввода пути файла с клавы всё отлично пашет

[volvo]

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

[Ярик]

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

Вставил, ошибка таже. Readkey мона вообще убрать, результат - не пашет.

Сообщение отредактировано: Ярик - 2.01.2007 20:08

[volvo]

Не знаю... У меня все работает... Какой у тебя компилятор?

[Ярик]

Где его глянуть)))) Pascal 7.0

[volvo]

P.S. Никогда не пользуйся Read БЕЗ LN !!! ВЕЗДЕ замени Read на ReadLn - все должно сработать...

[Ярик]

volvo, ты спас меня. Лови +. Хотя пробовал раньше, менял. Глюки какие-то...

Упс... поспешил. Я не могу репутацию менять... Ну тогда спасибо большое...

Сообщение отредактировано: Ярик - 2.01.2007 20:16

[Bokul]

P.S. Никогда не пользуйся Read БЕЗ LN !!! ВЕЗДЕ замени Read на ReadLn - все должно сработать...

Почему?