Как исправить эту программу "бегущая строка" под общий случай. чтобы можно было ввести любую бегущую строку. ! программа «бегущая строка» uses crt; procedure beg(x,y,len : byte; s : string); var i : byte; begin for i: =1 to len do s: =' '+s+' '; repeat gotoxy(x,y); writeln(copy(s,1,len)); delete(s,1,1); delay(100); until length(s) end; begin beg(10,10,20,'бегущая строка'); end.
