..kebajikan1..

program ayuTeks;
uses crt;
var
filesimpan : text;
buffer : string[50];
begin
clrscr;
assign (filesimpan, 'B:DATA1');
rewrite (filesimpan);
writeln ('masukkan teks pertama:');
readln (buffer);
while buffer <> ' ' do
begin
writeln (filesimpan,buffer);
writeln;
writeln (teks berikutnya ('tekan --> selesai'):);
writeln (buffer);
end;
close (filesimpan);
end.

eksekusi:
Masukan teks pertama : kebajikan yang ringan adalah muka yang berseri-seri
Teks berikutnya (tekan --> selesai) : dan mengucapkan kata-kata yang lemah
lembut

=^.^=ayu_kyoo