pascal cara membuat tulisan berwarna

Program Warna_Texs;

uses crt;

begin
Writeln ('Pilihan Warna');
textcolor(green);
Writeln ('Warna yang di pilih Hijau');
textcolor(red);
Writeln ('Warna yang di pilih Merah');
textcolor(cyan);
Writeln ('Warna yang di pilih Cyan');
textcolor(blue);
Writeln ('Warna yang di pilih Biru');
textcolor(yellow);
Writeln ('Warna yang di pilih Kuning');
 readln;
end.