Как превратить слово рота в слово полк за 6 действий. как из слово море превратить в слово суша за 8 действий. пожулуйста нужно.

Рота-роза-лоза-поза-пола-полк море-морж-корж-кора-бора-бура-сура-суша

Var x,y: real;   begin  writeln('введите координаты точки');   read(x,y);   if (x> 0) and (y> 0) then writeln('точка лежит в i координатной четверти');   if (x> 0) and (y< 0) then writeln('точка лежит в iv координатной четверти');   if (x< 0) and (y< 0) then writeln('точка лежит в iii координатной четверти');   if (x< 0) and (y> 0) then writeln('точка лежит в ii координатной четверти');   if x=0 then writeln('точка лежит на оси y');   if y=0 then writeln('точка лежит на оси х');   end.

// pascalabc.net 3.0, сборка 1128 begin   var s: =readstring('введите строку: ');   var d1: =copy(s,1,s.length div 2).where(x-> x='? ').count;   var d2: =s.where(x-> x='? ').count-d1;   if d1> d2 then writeln('в первой половине больше "? "')   else       if d1< d2 then writeln('во второй половине больше "? "')       else writeln('поровну "? "') end. тестовое решение: введите строку: 54ttge5t? getg5? ? ee4t3t? #43t4gfdaf? ss? sfsf? sfse в первой половине больше "? "