Menambah Data;

program Latihan_menambah_file;
uses wincrt;

var
ftext:text;
begin
assign(ftext,'Latihan.txt');
append (ftext);

writeln;
writeln(ftext,'=>LATIHAN BROOOO<=');
writeln(ftext,'==================');
writeln(ftext,'MASUK ANGIN');
writeln(ftext,'BALING');
writeln(ftext,'<===============>');
close (ftext);
end.