Мне нужно чтобы измененное слово выводилось не в столбик а заменялось новым
программа:
uses graphabc;
var i: integer;
const slovo = 'misha';
begin
for i: = 1 to 100 do
begin
setfontcolor(rgb(random(225),random(225),random(;
setfontsize (random (20));
setbrushcolor(rgb(random(225),random(225),random(;
writeln(slovo);
sleep (100);
end
end.

Uses GraphAbc;

Var i:integer;

const slovo = 'Misha';

begin

for i:= 1 to 100 do  

begin

SetFontColor(rgb(random(225),random(225),random(225)));

SetFontSize (random (20)+1);

SetBrushColor(rgb(random(225),random(225),random(225)));

textout(0,0,slovo);

sleep (100);

Clearwindow()

end

end.

P.s когда функция SetFontSize (random (20)) равно 0, то выходит ошибка, поэтому я написал "+1".