Написать в програме паскаль абц свое имя разыми цветами и талшены

uses crt; const s='Софокл'; var n,m,i,j,cf,ct:integer; begin randomize; n:=25; m:=(80)div n; for i:=1 to n do  begin   gotoXY(m*(i-1),i);   cf:=random(9)+8;//от голубого до желтого   ct:=random(9);//от синего до серого   textbackground(cf);   textcolor(ct);   write(s);  end; end.                           попробуй это