обработка строки текста... Опции

[ROxY]

 var
arr: array [1..20] of string;
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs:text;
begin
a:=0; o:=0; count:=0;
assign(t,'input.txt');
assign(fs,'output.txt');
reset(t);
rewrite(fs);
while not eof(t) do begin
 Inc(a);
 readln(t,arr[a]);
end;
for ch:='a' to 'я' do bedin
 for d:=1 to 20 do begin
  st:=arr[d];
  if not (st='') then begin
  repeat
   inc(o);
   if st[o]=ch then begin inc(count); end;
  until o=length(st);
  o:=0;
  end;
 end;
if not (count=0) then begin
str(count,s);
s:=ch+' - '+s;
writeln(fs,s);
count:=0;
end else count:=0;
end;
close(t);
close(fs);
readln

итак мне нужно вывести в алфавитном порядке и подсчитать количество букв в фразе..
вот это программка...
но у меня выдается ОШИБКА в месте
reset(t);
вот такая: path no found
Что это значит?
почему не работает программка????

[nikita182]

неверный путь
попробуй полный ввести

[ROxY]

что полный-то???

[мисс_граффити]

полный путь
например:
'c:\docs\input.txt'
кстатит, файл-то создан вообще?

[ROxY]

и еще а можно вот так вот...

 var k,j:integer; I,O: text;
A: array [1..100] of string;
c:string; m:integer;
begin
m:=0;
assign (I,'Input/txt.txt’);
reset(I);
while not Eof(I) do
begin
m:=m+1;
readln(I, A[m]);
end;
close(I);
for j:=1 to m do
for k:=1 to m-j do
if A[k]>A[k+1] then
begin
c:=A[k];
A[k]:=A[k+1];
A[k+1]:=c;
end;
assign(0,'output/txt.txt’);
rewrite(0);
for k:=1 to m do
writeln(0,A[k]);
close(0);
end. 

помогите закончить...
нужно подсчитать количество букв...

[nikita182]

создай файл, например: qwerty.txt
засунь в папку какую - нибудь, например: с:\pascal\qwerty.txt
и при связке пиши : assign (I, 'с:\pascal\qwerty.txt');

[ROxY]

ну да создан..

[nikita182]

полный текст задания в студию!

[мисс_граффити]

Input/txt.txt

не /, а \

[ROxY]

это не важно..
я просто взяла как input.txt
проблема в том что я изменила...но теперь вот
в rewrite(fs) так же ошибку выдает..
создать файл с output.txt??...и пустой или как?

[ROxY]

текст такой:
нужно в алфавитном порядке расположить
букву находящуюся во фразе(в файловом тексте) и подсчитать их количество..
В дальнейшем при запуске этой программы входным файлом должен стать файл отчета со служебной информацией в результате работы должен быть получен текст из фразы в файле с именем output.txt

[nikita182]

хм..файл содержит набор букв рандомных?

[мисс_граффити]

assign(0,'output/txt.txt’);
rewrite(0);

у тебя здесь что, нули?

[ROxY]

нет там не нули...

Добавлено через 3 мин.
nikita182, ну да...
а что же все таки делать с файлом output??

[nikita182]

текст такой:
нужно в алфавитном порядке расположить
букву находящуюся во фразе(в файловом тексте) и подсчитать их количество..
В дальнейшем при запуске этой программы входным файлом должен стать файл отчета со служебной информацией в результате работы должен быть получен текст из фразы в файле с именем output.txt

это дословно или твоя интерпретация?

[ROxY]

в принципе начиная от "в дальнейшем при запуске этой программы....."
дословно

[nikita182]

можно при запуске программы проверять сперва output, если
нет такого, работать с input'ом, а если есть то работать с ним.

есессно, создавать output в программе.

[мисс_граффити]

для rewrite совсем не нужно, чтобы файл был создан.
можешь прикрепить свой pas-файлик как он есть?

[ROxY]

уффф...капец как запарилась...
все бы ничего..
только запускается программа...и ничего...
а output в папке с Паскалем появился..

Добавлено через 2 мин.
вот что выдается...
runtime error 002 at 0bf9:0058

Добавлено через 9 мин.
 2.PAS ( 587 байт ) Кол-во скачиваний: 358

[Айра]

вот что выдается...
runtime error 002 at 0bf9:0058

У меня было тоже самое. Потом я создала файлы Input и Output в той же папке, где находится код программы (файл.pas), путь прописывала неполный (т.е. только название и расширение) и чтение происходило без ошибок. Попробуй так..