Работа с текстовым файлом

[whatever]

[Katus]

program WordReader;
{$apptype console}
uses
	SysUtils;
var
	f: text;
	s: string;
	i: byte;
	n: byte;
	c: char;
begin
writeln('Input an address of text file');
readln(s);
assignfile(f, s);
{$I-}
reset(f);
closefile(f);
if IOResult<>0 then
	writeln('Your address is not right')
else begin
	randomize;
	n:=random(255); 
	reset(f);
	for i:=1 to n-1 do begin
		repeat
			read(f,c);
		until (c=#32) or (c=#26);
	end;
 	s:=#0;
	repeat
		read(f,c);
		if (c<>#32) or (c<>#10) or (c<>#13) {прочие условия} then
			s:=s+c;
	until (c=#32) or (c=#26);
	closefile(f);	
	writeln('Random word is ',s);
end;
readln;
end.

[andronova]

Добрый день! Может быть кто-нибудь напишет эту программу. Нужно, чтоб в случайном порядке было взято слово из файла, буквы заменены черточками и, как в игре виселица, пользователь, вводя буквы, пытался угадать слово.
А то я никак не могу соединить. Сразу пишет - Слово угадано.
Заранее спасибо!

[Serge_Bliznykov]

andronova,
а зачем в чужую тему влазить? Потому что текстовый файл и там и здесь ?!

Очень рекомендую создать новую правильную тему (не забыть указать язык программирования/среду), рассказать, что сделано, что не получается, ну и т.д...