program Project7;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
  var
  ff: TextFile;
  i,z :Integer;
  s: String;
begin
AssignFile(TextFile, 'Test.txt');
Rewrite(TextFile);
Writeln(TextFile,'hello');
CloseFile(TextFile);
Append(TextFile);
Writeln('Введите строку...');
Readln(s);
Writeln(TextFile, '');
Writeln(TextFile, s);
CloseFile(TextFile);
end.