не пойму где ошибка(Паскаль)

[Tolya92]

Дан файл, содержащий текст на русском языке. Выяснить входит ли данное слово в указанный текст, и если да, то сколько раз.

program n3;
var s,sl,r,p:string; 
 t:text;k,i:integer;
begin
k:=0;
 write ('slovo ');
 readln(sl);
 write ('в file ');
 readln(r);
 assign(t,r);
 reset(t);
 while not eof(t) do
 begin
 readln(t,p);
 s:='';
 FOR I:=1 TO LENGTH(P) DO
 BEGIN
 IF (P[I]<>' ') AND (P[I]<>'.')
 then S:=S+P[I]
 else
 IF S=SL THEN
 begin
 k:=k+1;
 s:='';
 end
 else
 s:='';
 end;
 end;
 if k>0 then writeln (k) else writeln ('такого слова в тексте нет ')
end.

[Sciv]

Файл не закрываешь, допиши в конце:

Close(t);

Остальное вроде правильно. Если не поможет совет - конкретизируй проблему (в чем ошибка)?

[Tolya92]

reset(t); ошибка вот тут

program n3;
var s,sl,r,p:string; 
 t:text;k,i:integer;
begin
k:=0;
 write ('slovo ');
 readln(sl);
 write ('v file ');
 readln(r);
 assign(t,r);
 reset(t);
 while not eof(t) do
 begin
 readln(t,p);
 s:='';
 FOR I:=1 TO LENGTH(P) DO
 BEGIN
 IF (P[I]<>' ') AND (P[I]<>'.')
 then S:=S+P[I]
 else
 IF S=SL THEN
 begin
 k:=k+1;
 s:='';
 end
 else
 s:='';
 end;
 end;
 if k>0 then writeln (k) else writeln ('такого слова в тексте нет ')
 Close(t);
end.

[Aranea tela telam]

1 Забыл ;

if k>0 then writeln (k) else writeln ('такого слова в тексте нет ')

2 Текстовый Файл должен быть вместе в папке с программой ну и указывать Имя файла с его расширением Например 1.txt. Проверил все пашет только вот если в строке написать одно и то же слово 1 или 20 раз то он пишет что 1 всего встречается) делай код

[Sciv]

reset(t); ошибка вот тут

Внешне все в порядке. Извини, телепатические способности на работе забыл - какая ошибка?

 readln(r);
 assign(t,r);
 reset(t);

Если тут, то вариант: программа не видит введенный файл. Попробуй закинуть его на диск С: в корень и ввести r=C:\имя_файла

[Tolya92]

вот ошибка(
Новый рисунок T(1).JPG.jpg

[Serge_Bliznykov]

Tolya, сообщение об ошибке говорит о том, что то имя файла, которое Вы ввели, файла с таким именем НЕ НАЙДЕНО!

Прошу учесть, что в связи с использованием MS DOS версии паскаля, имя должно быть коротким, формата 8.3 (не более восьми символов в имени файла или любого каталога и не более 3-х символов в расширении, пробелы не допускаются).

Как Вам уже советовали. создайте файл на диске C: в КОРНЮ (это там, где C:\ )
например, запустите Блокнот, напишите текст английскими буквами, выберите "сохранить как" и укажите имя такое: C:\MYTEST.TXT. Потом ТОЧНО такое же имя введите в программе, когда она спросит "v faile "...
Успехов.

[Sciv]

не более восьми символов в имени файла или любого каталога и не более 3-х символов в расширении, пробелы не допускаются)

Я б еще добавил: длина всего пути, включая имя файла -не более 255 символов. Но это так, для просвещения

[Tolya92]

А ОБЯЗАТЕЛЬНО В БЛОКНОТЕ РУССКИЙ ТЕКСТ ДОЛЖЕН БЫТЬ?

[Aranea tela telam]

Сообщение от Tolya92

А ОБЯЗАТЕЛЬНО В БЛОКНОТЕ РУССКИЙ ТЕКСТ ДОЛЖЕН БЫТЬ?

На сколько я знаю нет