program Project7;

{$APPTYPE CONSOLE}

{$R *.res}

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