Отредактировать заданное предложение,заменяя многоточием,в паскале

Ну, раз заменять предложение, то...)

var a: string;
begin
     readln(a);
     if (a = 'Не то предложение') then a := '...';
     writeln(a);
end.