Спасибо всем кто помго с предыдущим вопросом, но возник ноый. У меня никак не получилось считать из файла какие-то слова отдельно. Содержание файла D:\input.dat :
yes no yes no
Вот текст проги который я пытался :
program num;
var a,b:string;f:Text;
begin
assign(f,'d:\input.dat');
reset(f);
read(f,a);
read(f,b);
write(a,' - ',b);
read(a);{}
end.
выводит:
yes no yes no -
т.е. если тип string, то она считывает по строкам.
А если написать a,b : char, то она считывает по символам, т.е.
y - e
Помогите пожалуйста. Как сделать, чтобы она считывала по словам.
Т.е. она должна вывести yes - no.
