Во-первых не хватает красной строки

MODULE x;
IMPORT  T := TextModels, F := Fonts,  Views,  TextViews;

PROCEDURE МеняемШрифт;
VAR
t: T.Model; (* текст *)
f, f1: F.Font;
a, a1: T.Attributes; (* это будут новые атрибуты текста *)
BEGIN
t := T.dir.NewFromString('Волгоград Сталинград Царицын'); (* новый текстовый объект (модель), шрифт по умолчанию *)

f := F.dir.Default(); (* можно взять шрифт по умолчанию, а можно указать в лоб: *)
f1 := F.dir.This( 'Verdana', 20*F.point, {F.italic, F.underline}, F.bold );
NEW(a);
a := T.dir.attr; (* берем атрибуты по умолчанию *)
a := T.NewFont( a, f1 ); (* правим атрибуты, меняя там шрифт на новый *)
t.SetAttr( 10, 20, a); (* меняем шрифт в позициях с 10 по 20-1 *)

(* смотрим, что получилось: *)
Views.OpenView( TextViews.dir.New( t ) );
END МеняемШрифт;


BEGIN МеняемШрифт
END x.


А кроме того еще чего-то не хватает, потому что в синей строке вылазитТРАП 22  (нарушено предусловие)