program test;

{$MODE DELPHI}

function ReadFile(AFileName : string; out FileContent : string; out NumberOfLines : integer) : boolean;
var
  TF : TextFile;
  TempStr : string;
begin
  FileContent := '';
  NumberOfLines := 0;
  AssignFile(TF, AFileName);
  {$I-}
  Reset(TF);
  {$I+}
  Result := IOResult = 0;
  if Result then
  begin
    while not EOF(TF) do
    begin
      Readln(TF, TempStr);
      NumberOfLines := NumberOfLines + 1;
      FileContent := FileContent + TempStr + #13#10;
    end;
    CloseFile(TF);
  end;
end;

var
  LinesNum : integer;
  AnswerStr, Content : string;
begin
  Write('Podaj nazwe pliku: ');
  Readln(AnswerStr);
  if ReadFile(AnswerStr, Content, LinesNum) then
  begin
    Writeln('Plik: "', AnswerStr, '" zawiera: ', LinesNum, ' linii.');
  end
  else
  begin
    Writeln('Nie mozna otworzyc pliku: "', AnswerStr, '"!');
  end;
  Readln;
end.