Как полностью читать из файла??

uses crt,pro;
var
   i: integer;
   s: String;
 
begin
     ClrScr;
     s:= ReadFile;
     Write('vvedite dlinu slova: ');Read(i);
     if (not ShowWords(s, i)) then
        WriteLn('Net slov zadannoy dliny');
     Write('Nazhmite lyubuyu klavishu');
     Readln;
end.

unit pro;
interface
uses crt;
 
function ReadFile: String;
procedure TrimLeft(var s: String);
function GetWord(var s: String): String;
function ShowWords(s: String; len: Integer): Boolean;
 
implementation
 
function ReadFile: String;
var
   f: Text;
   s: String;
begin
  Assign(f, 'f:\123\input.txt');
  Reset(f);
  Read(f, s);
  Close(f);
  ReadFile := s;
end;
 
procedure TrimLeft(var s: String);
var
   p: Integer;
begin
     p:= pos(' ', s);
     while (p = 1) do begin
           Delete(s, 1, 1);
           p:= pos(' ', s);
     end;
end;
 
function GetWord(var s: String): String;
var
   p: Integer;
begin
     p:= pos(' ', s);
     if (p > 1) then begin
        GetWord := Copy(s, 1, p-1);
        Delete(s, 1, p);
     end;
end;
 
function ShowWords(s: String; len: Integer): Boolean;
var
   k: Integer;
   w: String;
begin
  ShowWords:= false;
  s := s + ' ';
  while (Length(s) > 0) do begin
        TrimLeft(s);
        w:= GetWord(s);
        if (Length(w) = len) then begin
           WriteLn(w);
           ShowWords:= true;
        end;
  end;
end;
end.

[quote=Unpric;1772393]Assign(f, 'f:\123\input.txt');
 Reset(f);
 Read(f, s);
 Close(f);[/quote]

  while not EOF(FileName) do
   readln(FileName, str);

 ................................
 assign(файл, путь к файлу);
 reset(файл);
  while not eof(файл) do
   readln(файл, строка);
   ..............................

 Assign(f, 'f:\123\input.txt');
 Reset(f);
  while not eof(f) do 
   Readln(f, s);
 Close(f);
 ReadFile := s;
end;