вычислить хэш для каждого слова Опции

[*оля*]

что-то не правильно:

 

var
st: string;
line: string;
F: file of char;
f_name: string;
s: string;
ch: char;
i: integer;


function h(st: string): integer;
Var
I,sum: integer;
Begin
For i:=0 to length(st) do
Sum := sum + ord(st[i]);
H:=sum mod 256;
end;

begin
writeln('введите имя файла');
readln(f_name);
assign(f,f_name);
reset(f);
s:='';

while (not eof(f)) do begin
read(f, ch);
repeat
s:=s+ch; //здесь выдает ошибку
until (ch=' ');
st:=s;
h(s);
writeln (h(s));
s:='';
end;
close(f);
end. 

.

[volvo]

Но для первой строчки работает правильно? Тогда просто "оберни все это еще и циклом

while not eof(f) do
begin
  // тут - то, что показано выше
end;

Не заморачивайся с этими file of char/file of string. У тебя файл текстовый? Вот и пиши: Text.

[*оля*]

Но для первой строчки работает правильно? Тогда просто "оберни все это еще и циклом

while not eof(f) do
begin
  // тут - то, что показано выше
end;

Не заморачивайся с этими file of char/file of string. У тебя файл текстовый? Вот и пиши: Text.

сделала еще один цикл, так-то работает, но, если в файле, допутим, написано слово, потом нажат энтер и следующее слово, то считается, как-будто это одно слово, возможно как-то это исправить?