Изменить цвет у измененного символа Pascal

[tara-ta-ta]

Как поменять цвет у символа, который изменился? Допустим, число было зеленым, но потом оно изменилось, и оно должно стать другого цвета (любого, кроме красного). И массив должен вывести сами зеленые числа, которые изначально были, красные и числа у которых изменился цвет.

uses CRT;
const
  n = 100;
type
  RAM = record
    memory: array [1..n] of integer;
    status: array [1..n] of byte;
    time: array [1..n] of byte;
    count: array [1..n] of byte;
  end;
var
  i, z, a: integer;
  MyRAM: RAM;
begin
  TEXTCOLOR(WHITE);
  writeln('Исходная загруженность оперативной памяти');
  for i := 1 to n do
  begin
    MyRAM.memory[i] := 64 + random(961);
    MyRAM.status[i] := random(2);
    MyRAM.time[i] := 1 + random(49);
    MyRAM.count[i] := 1 + random(10);
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    write(MyRAM.memory[i]:5);
  end;
  writeln;
  TEXTCOLOR(WHITE);
  writeln('Массив STATUS');
  for i := 1 to 100 do
  begin
    if MyRAM.status[i] = 1 then textcolor(red) else textcolor(green);
    write( MyRAM.status[i]:5);
  end;
  writeln;
  z := 16 + random(241);
  writeln('');
  TEXTCOLOR(WHITE);
  writeln('z = ', z);
  writeln;
  for i := 1 to n do
    if (MyRAM.status[i] = 0) then 
      if (MyRAM.memory[i] <= z) then 
        if (MyRAM.memory[i] <= z) then begin
          MyRAM.status[i] := 1;
        end; 
  TEXTCOLOR(WHITE);
  writeln('Загруженность оперативной памяти после');
  for i := 1 to n do
  begin
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    write(MyRAM.memory[i]:5); 
    if MyRAM.status[i] = 1 then 
    begin
      a := MyRAM.memory[i] - z;
      if a < 0 then a := 0;
      write('(', a, ')'); end;
  end;
  TEXTCOLOR(WHITE);
end.

[tara-ta-ta]

т.е. вот так должно выглядеть