Ghi File

program GhiFile;
uses crt;
var
  F: Text;
  path,s: string;
begin
  clrscr;
  write('Nhap path file: ');
  readln(path);
  assign(F, path);
  rewrite(F);
  write('Nhap noi dung can ghi: ');
  readln(s);
  writeln(F, s);
  close(F);
end.