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

var
  a: string;
  i,b: byte;
 
begin
  write('Введите текст: ');
  readln(a);
  for i := 1 to length(a) do
    if a[i] in ['!','.','?',';',','] then inc(b);
  write('В предложении ',b,' знаков препинания!');
  readln
end.

var
  a,b: string;
  i: byte;
begin
  readln(a);
  for i := 1 to length(a) do
  begin
    if a[i] <> ' ' then b := b + a[i];
    if (a[i] = ' ') or (i = length(a)) then
    begin
      if b <>'' then 
        if b[1] = b[length(b)] then
          writeln(b);
      b := ''
    end;
  end;
  readln
end.

type
  res = record
  end;
var
  a,b: string;
  c: array[1..100] of string;
  i,j: byte;
begin
  readln(a);
  for i := 1 to length(a) do
  begin
    if a[i] <> ' ' then b := b + a[i];
    if (a[i] = ' ') or (i = length(a)) then
    begin
      if b <> '' then
      begin
        inc(j);
        c[j] := b;
      end;
      b := ''
    end;
  end;
  b := c[1];
  for i := 2 to j do
    if length(b) > length(c[i]) then b := c[i];
  write(b);
  readln
end.

type
  res = record
  end;

uses
  crt;
const
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp,min:string;
  i:integer;
begin
  ClrScr;
  ReadLn(s);
  temp:='';
  min:=s;
  for i:=1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if ((s[i] in dividers) or (i=Length(s))) and (temp<>'') then
    begin
      if Length(temp)<Length(min) then
        min:=temp;
      temp:='';
    end
  end;
  writeln('Ñàìîå êîðîòêîå: ',min)
end.