Ввести предложение без знаков препинания и в предложении переставить слова в порядке неубывания числа букв в словах.ввести новое предложения в pascal

конструкция

червяк представляет собой винт со специальной резьбой, в случае эвольвентного профиля колеса форма профиля резьбы близка к трапецеидальной. на практике   применяются однозаходные, двухзаходные и четырёхзаходные червяки.

червячное колесо представляет собой зубчатое колесо. в технологических целях червячное колесо, как правило[2], изготовляют составленным из двух материалов: венец — из дорогого антифрикционного материала (например, из бронзы), а сердечник — из более дешёвых и прочных сталей или чугунов.

входной и выходной валы передачи скрещиваются, обычно (но не всегда) под прямым углом.

1.

program pr;  

var m[1..10] of integer;  

j: integer;  

begin  

for j: =1 to 10 do  

begin  

m[j]: =random(10)-5;  

write(m[j],', ');  

end;  

readln;  

end.  

2.  

program pr;  

var m[1..20] of integer;  

j: integer;  

begin  

for j: =1 to 20 do  

m[j]: =random(30);  

m[9]: =55;  

end.  

3.  

program pr;  

var m[1..5,1..5] of integer;  

i,j: integer;  

begin  

for i: =1 to 5 do  

for j: = 1 to 5 do  

m[i,j]: =random(9);  

for j: = 1 to 5 do m[j,3]: =0;  

end.  

4.  

program pr;  

var m[1..6,1..6] of integer;  

i,j: integer;  

begin  

for i: =1 to 6 do  

for j: = 1 to 6 do  

m[i,j]: =random(1);  

for j: = 1 to 6 do m[j,3]: =2;  

end.  

5.  

program pr;  

var j,i: integer;  

var m,s: array[1..10] of integer;  

begin  

for j: =1 to 10 do m[j]: =random(20)-10;  

i: =1;  

for j: =1 to 10 do  

if m[j]> 0 then begin  

s: =m[j];  

inc(i);  

end;  

end.  

6.program pr;  

var m[1..6,1..6] of integer;  

i,j: integer;  

begin  

for i: = 1 to 6 do begin  

for j: =1 to 6 do  

begin  

m[i,j]: =random(1);  

write(m[i,j],', ');  

end;  

writeln(' ');  

end;  

readln;  

end.  

program pr;  

var m[1..6,1..6] of integer;  

i,j,c: integer;  

begin  

for i: = 1 to 6 do  

for j: =1 to 6 do begin  

m[i,j]: =random(1);  

if m[i,j]=1 then c: =c+1;  

end;  

write('count: ',c);  

readln;  

end.