program Project17;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;


procedure ReadFromFile(var Words: String);
var
   FileName: String;
   IsCorrect: Boolean;
   InFile: Text;
begin
   repeat
      IsCorrect := True;
      Assign(InFile, FileName);
      Reset(InFile);
      if IOResult <> 0 then
      begin
         Writeln(' File does not exist!');
         IsCorrect := False;
      end
      else
      begin
         Read(InFile, Words);
         if length(Words) = 0 then
         begin
            Writeln('File is empty!');
            IsCorrect := False;
         end;
      end;
   until IsCorrect;
   Close(InFile);
end;

procedure ReadFileName(var MyFile: TextFile);
var
   FName: string;
   CorrectName: Boolean;
begin
   Writeln('Enter a file name for data entry in the format Name.txt');
   repeat
      Readln(FName);
      if FileExists(FName) then
         CorrectName := True
      else
      begin
         Writeln('The file name was entered incorrectly. Try again. Example: Name.txt');
         CorrectName := False;
      end;
   until CorrectName;
   AssignFile(MyFile, FName);
   Reset(MyFile);
end;



procedure LongestWord(var Words: String);
Var
   i, j, k, Max: Integer;
   Line: String;
begin
   i := 1;
   Max := 0;
   repeat;
      j := 0;
      While (Words[i] <> ' ') and (i <= length(Words)) do
      begin
         Inc(i);
         Inc(j);
      end;
      if j > Max then
      Max := j;
      Inc(i);
   until i > length(Words);
   Writeln(Max);
   i := 1;
   repeat;
      j := 0;
      while (Words[i] <> ' ') and (i <= length(Words)) Do Begin
         Line := Line + Words[i];
         Inc(i);
      end;
      if length(Line) = Max then
          Writeln(Line);
          Line := '';
          Inc(i);
   until i > length(Words);
end;

procedure ReadFileOutputName(var MyFile: TextFile);
var
   NewFName: string;
   CorrectName: Boolean;
begin
   Writeln('Enter a file name for data entry in the format Name.txt');
   repeat
      Readln(NewFName);
      if Copy(NewFName, length(NewFName) - 3, 4) = '.txt' then
         CorrectName := True
      else
      begin
         Writeln('The file name was entered incorrectly. Try again. Example: Name.txt');
         CorrectName := False;
      end;
   until CorrectName;
   AssignFile(MyFile, NewFName);
   Rewrite(MyFile);
end;

procedure WriteToFile();
var
   LongWord: String;
   FName: String;
   OutFile: Text;
begin
   Assign(OutFile, FName);
   Rewrite(OutFile);
   Writeln(OutFile, 'The longesr word or words:' + LongWord);
   Close(OutFile);
end;


var
   Words, FileName: String;
   MyFile: TextFile;
   CorrectFile : Boolean;
begin
   Writeln('This program finds the longest word in the string.');
   ReadFileName(MyFile);
   ReadFromFile(Words);
   Writeln('Words from file:');
   Write(Words);
   Writeln('');
   Writeln('The longest word or several words:');
   LongestWord(Words);
   ReadFileOutputName(MyFile);
   WriteToFile();
   Readln;
end.