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

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 ord(bukva)=ord(word[j]) then
            s[j]:=bukva;
          write (s[j]:2)
        end;
        end;
    end;
    writeln('Slovo ugadano!':16);
    readln;readln;
end.

function ReadWordFromTextFile(const FileName: String): String;
var
  T: Text;
  myWord: String;
begin
  AssignFile(T, FileName);
  Reset(T);
  Readln(T, myWord); // считать первую строку в файле
  CloseFile(T);
  Result := myWord;
end;

var
 str: string;
 line: integer;
 list: TStringlist;
begin
 Randomize;
 list:= TStringlist.Create;
 List.LoadFromFile('text.txt');//файл слов (слова расположены столбиком)
 line:= Random(List.Count);
 str:= List.Strings[line];// полученое из файла слово
 list.Free;
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:array[1..50] of char;
var s1:array[1..50] of string;
var word:string;
var i,j:integer;
var bukva:char;
var f:TextFile;
var
 line: integer;
 List: TStringList;
begin
 Randomize;
 List:= TStringlist.Create;
 List.LoadFromFile('C:\Program Files (x86)\Borland\Delphi7\Projects\2');/
 line:= Random(List.Count);
 word:= List.Strings[line];
 list.Free;
end;
 
  word:=s1[random(i)+1];
  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 ord(bukva)=ord(word[j]) then
            s[j]:=bukva;
          write (s[j]:2)
        end;
        end;
        end;
    writeln('Slovo ugadano!':16);
    readln;readln;
end.

uses Classes;

Uses Windows;
 
SetConsoleCp(1251);
SetConsoleOutputCp(1251);