Как слово "кот" превратить в "ток" в программе паскаль?

Program p1;
var s,s1:string;
i,n:integer;
begin
s:='КОТ';
n:=length(s);
writeln(s);
for i:=1 to n do s1:=s1+copy(s,n-i+1,1);
writeln(s1);
end.