Паскаль.Введите с клавиатуры фразу, например Мать мыла раму, а Маша ела

Врать нехорошо. Не 40, а 20+10 за превосходнейший.

Не считая того, о каком цвете речь? В графическом режиме выводить? Какой язык, какая версия?

Ау ,не желала,избрала 40 (веб-сайт сам поделил).Паскаль ,любые цвета.

В Паскале "цвета получаются только в графике, а графика у каждой версии своя и они все несовместимы.

У меня на компуктере, версия 3.0. сборка 1052(05.10.2015).

Сделайте пожалуйста на собственной сборке ) И опишите пожалуйста ,студентка )

ПаскальАБЦ.НЕТ. Понятно

Полагаюсь, Для вас для фраз взыскательно вида "А делал Р, а В делал Q" со словами через один пробел? или для фраз с произвольным количеством пробелов между словами и хоть какими текстами, только бы там запятая была и союз "а", даже если не сразу после запятой?

Ну нет, означает нет...

// PascalABC.NET 3.0,сборка 1073
uses GraphABC;

const
  ss=', а ';
var
  s:string;
  p,q:integer;
begin
  Writeln('Введите фразу:'); Readln(s);
  p:=Pos(ss,s);
  if p=0 then Writeln('Во фразе нет контекста "',ss,'"')
  else begin
    q:=p+Length(ss);
    Window.Title:='Выводим в цвете!';
    SetFontSize(14);
    SetFontColor(clBlue);
    Writeln(s);
    SetFontColor(clRed);
    Writeln(Copy(s,q,Length(s)-q+1)+ss+Copy(s,1,p-1))
  end
end.

Пример работы программки во вложении.