Помогите составить программу на языке Паскаль. Составить программу, заменяющую слово 'кот' на 'пес'

Код ниже будет работать только в Pascal ABC, в консольном с русским проблема.

var
a: string;
k: integer;
begin
readln(a);
while (pos('кот', a)) do
begin
k := pos('кот', a);
a[k] := 'п';
a[k + 1] := 'е';
a[k + 2] := 'с';
end;
writeln(a);
end.