Найти количество слов в предложении,которые начинаются на букву m

uses crt;
 
var
  Text : string;
  i, count : integer;
 
begin
  Write('Введите предложение: ');
  Readln(Text);
  Text := Text + ' ';
  count := 0;
  Writeln('Слова m: ');
  while Text <> '' do
    if (Text[1] = 'm') or (Text[1] = 'M') then
      begin
        Writeln(copy(Text, 1, pos(' ', Text)));
        inc(count);
        Delete(Text, 1, pos(' ', Text));
      end else Delete(Text, 1, pos(' ', Text)); 
  Writeln('Количество слов: ', count);
end.

Writeln('Слова m: ');

var
  a, d : string;
  l, k, i, j : byte;
  b : char;
 
begin
  Writeln('Введите текст: ');
  Readln(a);
  l := length(a);
  if a[1] = 'm' then 
    begin
      k := k + 1;
      j := 1;
      while (j <= l) and (a[j] <> ' ') do
        begin
          Write(A[j]);
          inc(j);
        end;
      Writeln;
    end;
  for i := 1 to l - 1 do
    begin
      b := a[i];
      d := a[i + 1];
      if b = ' ' then 
        if  d = 'm' then 
          begin
            k := k + 1;
            j := i + 1;
            while (j <= l) and (a[j] <> ' ') do
              begin
                Write(a[j]);
                inc(j);
              end;
            Writeln;
          end;
    end;
  Writeln(k);
  Readln;
end.