как сделать чтоб программа брала случайное слово из файла?

[Andronov]

нужно написать программу что то на подобие игры "поле чудес". из текста берется случайное слово, которое и надо угадать пользователю. вот что у меня получилось

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s:array[1..50] of char;
var word:string;
var i,j:integer;
var bukva:char;
begin
  readln (word);
  for i:=1 to length(word) do begin
    s[i]:=('_');
    write(s[i]:2);
  end;
   for i:=1 to length(word) do
    begin
      while s[i]=('_') do begin
      writeln('Vvedite bukvu':20);
      readln (bukva);
      for j:=1 to length(word) do
        begin
          if bukva=word[j] then
            s[j]:=bukva;
          write (s[j]:2)
        end;
        end;
    end;
    writeln('Slovo ugadano!':16);
    readln;readln;
end.

но не знаю как сделать так чтоб слово бралось именно из файла, так как не особо силен в программировании)))


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) дайте определение, что такое СЛОВО в файле.
(ну чем слова в файле отделяются друго от друга.
например, самый простой вариант, когда файл обычный, текстовый и каждое слово занимает отдельную строчку.)

2) я вижу, что Вы пишете консольное приложение под Delphi.
Можно ли пользоваться имеющимися в Delphi готовыми классами (и их методами, разумеется) ?
Если - ДА, тогда грузите файл в TStringList через имеющийся метод TS.LoadFromFile('ИмяТекстовогоФайла .txt');
получить случайное слово word := TS.Strings[ Random(TS.Count));

Если же нужен "чистый" Паскаль, тогда нужно читать файл, разбирать его на слова и брать случайное слово...