Блок-схема

program dz2;
uses crt;
  
const  
  text = 'Цилиндрическая цистерна с горизонтальной осью';
  
var
  wordarr:array[1..5] of string;
  j, i:byte;
  tempstr:string;
  
begin
  writeln('Исходный текст: ', text);
  j:= 1;
  i:= 1;
  while i <= length(text) do
  begin
    if text[i] <> ' '
    then wordarr[j]:= wordarr[j] + text[i]
    else inc(j);
    inc(i);
  end;
  
  j:= 0;
  for i:= 1 to 5 do
    if (pos('ц', wordarr[i]) = 1)OR(pos('Ц', wordarr[i]) = 1)
    then inc(j);
  writeln();
  writeln('число слов, начинающихся на "Ц" = ', j);
  writeln();
  if j > 1
  then
  begin
    wordarr[1]:= 'Кубическая';
    wordarr[4]:= 'вертикальной';
  end;
  write('Изменённый текст: ');
  for i:= 1 to 5 do
    write(wordarr[i], ' ');
  writeln();
  writeln();
  writeln('Неотсортированный массив слов:');
  for i:= 1 to 5 do
    writeln(wordarr[i]);
  for i:= 1 to 4 do
    for j:= i+1 to 5 do
      if length(wordarr[j]) < length(wordarr[i])
      then
      begin
        tempstr:= wordarr[i];
        wordarr[i]:= wordarr[j];
        wordarr[j]:= tempstr;
      end;
  writeln();
  writeln('Отсортированный массив слов:');
  for i:= 1 to 5 do
    writeln(wordarr[i]);
end.