Дана строка из нескольких слов, заканчивающаяся точкой

uses
  strutils;
var
  s:string;
  kmin,i,kpos:integer;
 
procedure DelAndFind(var st:string; var number:integer);
var
  j, i:integer;
begin
  number:=0;
  if st='' then
    exit;
  if (st[1]=' ') then
    delete(st, 1, 1)
  else
    inc(number);
  for i:=Length(st) downto 1 do
    begin
      if (st[i] in [' ']) then
        begin
          inc(number);
        repeat
          if (st[i+1]=' ') then
            begin
              delete(st, (i+1), 1);
            end;
        until ((st[i+1])<>'.');
      end;
  end;
end;
 
procedure LongAndShort(a:string);
{(C) кот Бегемот}
var
  x,b:array[1..100] of string;
  i,k,min,max:integer;
  z:string;
begin
  k:=0;
  z:=a;
  a:=' '+a;
  for i:=1 to length(a) do
    if a[i] in [' ',',',';',':'] then
      inc(k)
    else
      b[k]:=b[k]+a[i];
 
  max:=length(b[1]);
  for i:=1 to k do
    if length(b[i])>max then
      max:=length(b[i]);
  writeln('Cамые длинные слова: ');
  for i:=1 to k do
    if length(b[i])=max then
      writeln(b[i],': ',length(b[i]));
  for i:=1 to 100 do
    b[i]:='';
  k:=0;
  a:=z;
  a:=' '+a;
  for i:=1 to length(a) do
    if a[i] in [' ',',',';',':'] then
      inc(k)
    else
      b[k]:=b[k]+a[i];
 
  min:=length(b[1]);
  for i:=1 to k do
    if (length(b[i])<min) and (length(b[i])<>0)then
      min:=length(b[i]);
  writeln('Cамые короткие слова: ');
  for i:=1 to k do
    if length(b[i])=min then
      writeln(b[i],': ',length(b[i]));
end;
 
function CSubs(sub,s: string): byte;
begin
  if Pos(sub, s) = 0 then
    CSubs := 0
  else
    CSubs := 1 + CSubs(sub, Copy(s, Pos(sub, s) + Length(sub), Length(s)));
end;
 
begin
  s:='Помогите, пожалуйста, это все нужно сделать в одной программе:'+#10#13+
  'Найти количество буквосочетаний (min);'+#10#13+
  'Подсчитать количество слов    в этой строке;'+#10#13+
  'Удалить лишние пробелы;'+#10#13+
  'Найти самое длинное и    самое короткое (min) слово;'+#10#13+
  'Отсортировать строку    по убыванию (min) длины слов (min).';
  writeln('Исходная строка: ');
  writeln(s);
  writeln;
  writeln('Количество буквосочетаний (min): ',Csubs('min',s));
  writeln;
  DelAndFind(s,kmin);
  writeln('Лишние пробелы удалены: ');
  writeln(s);
  writeln;
  writeln('Количество слов в этой строке: ',kmin);
  longandshort(s);
  readln;
end.