Как превротить из слова море в слово суша (чтобы были нормальные слова) например: суп-сук

горе-гора-кора-нора-сумма

море-суша

соре

суре

суше

суша

нас так

1)type   ta=array[1..30,1..10] of integer; var ma: ta; i,k,j: integer; procedure searchandinc(ma: ta; var k: integer); var i,j: integer; begin; for i: =1 to 30 do  for j: =1 to 10 do  if (i+j) mod 5=0 then k: =k+ma[i,j]; end; begin; randomize; writeln('matrix: '); for i: =1 to 30 do  begin;   writeln;     for j: =1 to 10 do    begin;       ma[i,j]: =random(50);       write(ma[i,j]: 4);     end;   end; searchandinc(ma,k); writeln; writeln('result: ',k); end.2)type  ta=array[1..20,1..5] of integer;   procedure minim(ma: ta; var mini,minj: integer); var i,j,min: integer; begin; min: =2147483647; for i: =1 to 20 do   begin;   for j: =1 to 5 do     begin;     if min> ma[i,j] then       begin;         min: =ma[i,j];         mini: =i;         minj: =j;       end;     end;   end; end; var ma: ta; i,j,c,mini,minj,min: integer; begin; randomize; writeln('matrix: '); for i: =1 to 20 do   begin;   writeln;     for j: =1 to 5 do     begin;       ma[i,j]: =random(50);       write(ma[i,j]: 4);     end;   end; minim(ma,mini,minj); writeln; c: =ma[1,2]; ma[1,2]: =ma[mini,minj]; ma[mini,minj]: =c; writeln('final matrix: '); for i: =1 to 20 do   begin;   writeln;     for j: =1 to 5 do     write(ma[i,j]: 4);   end; writeln; writeln('min: ',min); end.

Var st,s: string;     i,j: integer; begin   s: ='9876543210';   write('число:   ');   readln(st);   j: =1;   while j< =length(s) do   begin     i: =1;       while i< =length(st) do     begin       if st[i]=s[j] then         begin         write(s[j],' ');         delete(st,i,1);         i: =i-1;       end;       i: =i+1;     end;     j: =j+1;     if length(st)=0 then break;   end;   end.