Đổi màu chữ trong pascal

[Tran_Minh_Huynh (Trần Minh Huynh)]

Chào mọi người

Lần đầu mình vào group nên không biết viết tiêu đề sao cho đúng

Tình hình là mình viết chữ chạy có màu ở Pascal nhưng mình đang gặp 1 vài vấn đề nhỏ

Code:

uses aVibrate, crt;

var
  i : integer;
begin
  for i := 1 to 1 do
  begin
    writeln('Hello Minh Huynh');
    vibrate(200);
    delay(500);
    textColor(1)
  end;
  
  for i := 1 to 1 do
  begin
    writeln('Welcome IT');
    vibrate(200);
    delay(500);
    textColor(3)
  end;

  readln;
  {Stop}
  cancelVibrate;
end.

Mình muốn chạy chữ có màu
Vd:

• Hello Minh Huynh(màu xanh)
• Welcome IT(màu đỏ)

Nhiều dòng chữ nhưng 1 dòng 1 màu và mình muốn các bạn chỉ mình cách rút code luôn ạ dài quá mình cũng mệt mà phải sửa số màu nữa

[phamvandung]

https://www.freepascal.org/docs-html/rtl/crt/textcolor.html

Program Example12;
uses Crt;

{ Program to demonstrate the TextColor function. }

begin
    WriteLn('This is written in the default color');
    TextColor(Red);
    WriteLn('This is written in Red');
    TextColor(White);
    WriteLn('This is written in White');
    TextColor(LightBlue);
    WriteLn('This is written in Light Blue');
end.

markdown không có pascal thì phải

nhét code vào như này

[Tran_Minh_Huynh (Trần Minh Huynh)]

Cảm ơn bạn,mình sẽ thử ngay.Mấy hôm nay tìm hiểu mà không ra

[noname00 (HK boy)]

Không cần phải viết hoa mỗi từ đâu. Trông không phù hợp với ngữ pháp tiếng Việt đâu.

---

Bạn đưa các màu vào 1 mảng

const color = array[1..max] of integer = (3, 2, 9, 4,...);

rồi với mỗi dòng bạn gọi màu

textcolor(color[i]);
writeln(line[i]);

[Tran_Minh_Huynh (Trần Minh Huynh)]

chắc mình đang tim code này