membuat file

program Latihan_file;
uses wincrt;

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

writeln(ftext,'=>LATIHAN BROOOO<=');
writeln(ftext,'==================');
writeln(ftext,'SAYA LAGI BELAJAR');
writeln(ftext,'SAYA LAGI SIBUKKK');
writeln(ftext,'<===============>');
close (ftext);
end.